DCODETX. S 



4/11/95 
with stop 

!!!!!!!! note: for z8604 with external EEPROM & RS232 !!!!!!?!!!! 



EQUATE STATEMENTS 



XRGRPF 


. equ 


Of OH 


* expanded reg group F (WDT, SMR, PCON) 


XRGRPO 


. equ 


00H 


* expanded reg group 0 (ports) 


S1B39 


. equ 


00000000b 


• B39 value for SI 




S2B39 


. equ 


00000001b 


• B39 value for S2 . 




S3B39 


.equ 


00000010b 


• B39 value for S3 




SI 


. equ 


00000100b 


• P32 SI mask for 286C04 




S2 


.equ 


00001000b 


• P33 S2 mask for Z86C04 




S3 


. equ 


00000010b 


• P31 S3 mask for 286C04 




smr 


.equ 


ObH 


• stop mode recovery 




csh 


. equ 


00000100b 


•P22 chip sel hi for 93c46 




csl 


.equ 


11111011b 


*P22 chip sel lo for 93c46 




clockh 


. equ 


00000010b 


■P21 elk hi for 93c46 




clockl 


. equ 


11111101b 


•P21 elk lo for 93c46 




doh 


. equ 


00000001b 


•P20 data out hi for 93c46 




dol 


. equ 


11111110b 


•P20 data out lo for 93c46 




csport 


. equ 


P2 


■chip sel port 93c46 




dioport 


. equ 


P2 


•data i/o port 93c46 




clkport 


. equ 


P2 


■elk port 93c46 




^**********************************************^ 


CONTROL 


REG AND 


INITIAL VALUES 








STACKTOP 


. equ 


07FH 


• start of the stack 




STACKEND 


. equ 


070H 


■ end of the stack 




GPR INIT 


. EQU 


0OH 


init general purpose reg 


to 00H 


RP INIT 


. EQU 


0OH 


init register pointer to 


00 


IMR INIT 


. EQU 


00000000B 


init intr mask reg (di) 




IPR INIT 


. EQU 


00001111B 


init intr priority reg 




P01M INIT 


. EQU 


00000100B 


* init port 0&1 mode reg 




P2M INIT 


. EQU 


10010000B 


init port2 mode 




P3M INIT 


. EQU 


00000001B 


init port3 mode 




PRE1 INIT 


.EQU 


00001011B 


init prescalar 1 reg 




Tl INIT 


. EQU 


250D 


init counter/timer 1 reg 


/200 


TMR INIT 


.EQU 


00000000B 


init timer mode reg 




TMR START 


. EQU 


00001100B 


start timer 




PO INIT 


.EQU 


O00O0O00B 


init portO 




P2 INIT 


. EQU 


O00O0O00B 


init port2 




P3_INIT 


.EQU 


O00O0O0OB 


init port3 




SMR_INIT 
r 


.EQU 


1111101 OB 


init SMR reg bitl hi OTP 


Lo Emulato 


PCON_INIT 


. EQU 


11111110B 


init Port control reg 





********************************* 
PREDEFINED CONTROL REG 



*************************************** 



SPL 
GPR 
;RP 

/FLAGS 



.equ 
.equ 
.equ 
. equ 



255 
254 
253 
252 



stack pointer 
general purpose 
register pointer 
cpu flags 



M 
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IMR 


. equ 


251 


; interrupt mask reg 


IRQ 


. equ 


250 


; interrupt request 


IPR 


. equ 


249 


; interrupt priority 


P01M 


.equ 


248* 


; port 0 mode 


P3M 


.equ 


247 


; port 3 mode 


P2M 


.equ 


246 


; port 2 mode 


PRE1 


. equ 


243 


; prescaler for timer 1 


Tl 


.equ 


242 


; timer 1 


TMR 


.equ 


241 


; timer mode 


P3 


. equ 


3 


; port 3 


P2 


. equ 


2 


; port 2 



****** *NON-PREDEFINED CONTROL REGISTERS USED WITH REGISTER POINTER****** 



WDTMR 


. EQU 


rl5 


; watch dog timer RP=F0 


SMR 


.EQU 


rll 


; stop mode recovery RP=F0 


PCON 
; 


. EQU 


rO 


port control RP=F0 


Q INTERRUPTS 














q 








^IMER_ON_IMR 


.equ 


00100000b 


; turn on int for timer 1 


N 

GENERAL 


PURPOSE 


REGISTERS 




U1 
























: S ; GENERAL PURPOSE REGISTER GROUP 00H-09H 


(OOh-OlH reserved) 


;;reggrpoo 


.equ 


00H 


• 




.equ 


REGGRP00 


* reserved 




. equ 


REGGRP00+1 


• reserved 




. equ 


REGGRPOO+2 


• P2 




. equ 


REGGRPOO+3 


• P3 


; s X3XTMP 


.equ 


REGGRPOO+4 


• trinary add to itself # 


I ! X3XTMP1 


. equ 


REGGRPO0+5 




X3XTMP2 


.equ 


REGGRP00+6 




X3XTMP3 


.equ 


REGGRP00+7 




TRCXX 


. equ 


REGGRP00+8 


■ trinary number pointer 


TCNTR 


. equ 


REGGRP00+9 


■ trinary counter 


X3XABCD 


.equ 


REGGRP00+10 


■ trinary number 


X3XABCD1 


. equ 


REGGRP00+11 


• trinary number 


X3XABCD2 


. equ 


REGGRP00+12 


• trinary number 


X3XABCD3 


.equ 


REGGRP00+13 


• trinary number 


LPCNTR 


.equ 


REGGRPO0+14 


■ Loop counter 


B39 


. equ 


REGGRPOO+15 


button 1,2,3 




. equ 


rO 


• reserved 




.equ 


rl 


- reserved 




.equ 


r2 


P2 




.equ 


r3 


P3 


x3xtmp 


.equ 


r4 


trinary add to itself # 


x3xtmpl 


.equ 


r5 




x3xtmp2 


. equ 


r6 




x3xtmp3 


.equ 


r7 




trcxx 


.equ 


r8 - , 


trinary number ptr 


tcntr 


.equ 


r9 


trinary counter 


x3xabcd 


. equ 


rlO 


trinary number 
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x3xabcdl 


.equ 


r 1 1 


• trinary n Li mb e r 


x3xabcd2 


. equ 


rl2 


; trinary number 


x3xabcd3 


. equ 


r!3 


; trinary number 


lpcntr 


.equ 


rl4 


; Loop counter 


b39 


.equ 


rl5 


; button 1,2,3 





; GENERAL PURPOSE REGISTER GROUP 10H-1FH 



REGGRP 10 

RC10B 

RC11B . 

RC12B 

RC13B 

RC2 0B 

RC21B 

RC22B 

RC23B 

RC30B 
( »iRC31B 
Jl ^RC32B 
! ^RC33B 
E =y FRAMEPTR 
l!=|CODEPTR 
j^BITPTR 
! ?B RCPTR 



. equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
. equ 
.equ 
. equ 
. equ 



10H 

REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 



10 

10 + 1 
10+2 
10 + 3 
10 + 4 
10 + 5 
10 + 6 
10 + 7 
10 + 8 
10 + 9 
10 + 10 
10 + 11 
10 + 12 
10 + 13 
10 + 14 
10 + 15 



1 


Code 


1 


LSB 


1 


Code 


1 




1 


Code 


1 




1 


Code 


l 


MSB 


1 


Code 


2 


LSB 


1 


Code 


2 




1 


Code 


2 




1 


Code 


2 


MSB 


1 


Code 


3 


LSB 


1 


Code 


3 




1 


Code 


3 




1 


Code 


3 


MSB 



frame pointer 
code pointer 
bit pointer 

Rolling Code Reg Pointer 



Mire 10b 
UJrcllb 
[S rc!2b 
;\rcl3b 
l=:i:: rc20b 
Qrc21b 
Mrc22b 
<,.src23b 
J!rc30b 
Urc31b 
Mrc32b 

rc33b 

f rameptr 

codeptr 

bitptr 

rcptr 

• * * * * ******** 

rs232do 

rs232di 

rscommand 

rs232docount 

rs232dicount 

rs232odelay 

rs232idelay 

rs232ccount 

rs232page 

rsccount 

rsstart 

RS232DO 
RS232DI 
RSCOMMAND 
RS2 32DOCOUNT 
RS232DICOUNT 



.equ rO 

.equ rl 

.equ x2 

.equ r3 

.equ .r4 

.equ r5 

.equ r6 

.equ r7 

.equ r8 

.equ r9 

.equ rlO 

.equ rll 

.equ rl2 

.equ rl3 

.equ rl4 

.equ rl5 
*******RS-232 Assignments 

.equ r5 

.equ r6 

.equ r7 

.equ r8 

.equ r9 

.equ rlO 

.equ rll 

.equ rl2 

.equ rl3 

.equ rl4- 

.equ rl5 



. EQU 
. EQU 
.EQU 
.EQU 
.EQU 



REGGRP 10+5 
REGGRP 10+ 6 
REGGRP 10+7 
REGGRP 10+8 
REGGRP 10+9 



1 


Code 


1 


LSB 


1 


Code 


1 




1 


Code 


1 




1 


Code 


1 


MSB 


1 


Code 


2 


LSB 


1 


Code 


2 




1 


Code 


2 




1 


Code 


2 


MSB 


1 


Code 


3 


LSB 


1 


Code 


3 




1 


Code 


3 




1 


Code 


3 


MSB 



frame pointer 
code pointer 
bit pointer 

Rolling Code Reg Pointer 
share REGGRP 10**************** 
for RS-232 only 
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RS2320DELAY 


,EQU 


REGGRP10+10 






RS232IDELAY 


. EQU 


REGGRP 10+ 11 






RS2 32CCOUNT 


. EQU 


REGGRP 10+ 12 






RS232PAGE 


. EQU 


REGGRP 10+1 3 






RSCCOUNT 


. EQU 


REGGRP10+14 






RSSTART 


. EQU 


REGGRP 10+1 5 






RS2320S 


.EQU 


00000100B 


;RS232 


output bit set 


RS2320C 


.EQU 


11111011B 


;RS232 


output bit clear 


RS2320P 


■ . EQU 


PO 


;RS232 


output port 


RS232IP 


. EQU 


P2 


;RS232 


input port 


RS232IM 


. EQU 


00010000B 


;RS232 


input mask 



**************************************************** 
GENERAL PURPOSE REGISTER GROUP 2 0H-2FH 



********************************* 



REGGRP2 0 


.equ 


20H 














TRCO 


. equ 


REGGRP2 0 


; Trinary 


Roll 


Code 


REG 


's 


LSB 


TRC1 


. equ 


REGGRP2 0 + 1 


; Trinary 


Roll 


Code 


REG 


' s 




,_.TRC2 


. equ 


REGGRP2 0 + 2 


; Trinary 


Roll 


Code 


REG 


's 




j «-TRC3 


. equ 


REGGRP2 0 + 3 


; Trinary 


Roll 


Code 


REG 


's 




J|TRC4 


. equ 


. REGGRP2 0 + 4 


; Trinary 


Roll 


Code 


REG 


' s 




i.rtrRCS 


. equ 


REGGRP2 0 + 5 


; Trina ry 


Roll 


Code 


REG 


*s 




s "-5trc6 


. equ 


REGGRP20+6 


; Trinary 


Roll 


Code 


REG 


's 




! S *TRC7 


. equ 


REGGRP2 0 + 7 


; Trinary 


Roll 


Code 


REG 


's 




l ;si TRC8 


. equ 


REGGRP2 0 + 8 


/Trinary 


Roll 


Code 


REG 


' s 






. equ 


REGGRP2 0+ 9 


; Trinary 


Roll 


Code 


REG 


's 




hSYNCl 


. equ 


REGGRP2 0 + 10 


;sync pulse framel 








j"|TRC10 


. equ 


REGGRP2 0 + 1 1 


; Trinary 


Roll 


Code 


REG 


r s 




U TRC11 


. equ 


REGGRP2 0 + 12 


; Trinary 


Roll 


Code 


REG 


r s 




* TRC12 


. equ 


REGGRP20+13 


; Trinary 


Roll 


Code 


REG 


r s 




!m5TRC13 


. equ 


REGGRP20+14 


; Trinary 


Roll 


Code 


REG 


r s 




j»fRC14 


. equ 


REGGRP2 0 + 1 5 


; Trinary 


Roll 


Code 


REG 


r s 




■< Ess fcrcO 


. equ 


rO 


; Trinary 


Roll 


Code 


REG 


r s 


LSB 


Ntrcl 


. equ 


rl 


; Trinary 


Roll 


Code 


REG 


s 




!«trc2 


. equ 


r2 


/Trinary 


Roil 


Code 


REG ' S 




; ss trc3 

use 


. equ 


r3 


; Trinary 


Roll 


Code 


REG 


s 




; trc4 


. equ 


r4 


; Trinary 


Roll 


Code 


REG 


s 




trc5 


. equ 


r5 


/ Trinary 


Roll 


Code 


REG 


s 




trc6 


. equ 


r6 


/ Trinary 


Roll 


Code 


REG 


s 




trc7 


. equ 


r7 


/ Trinary 


Roll 


Code 


REG 


s 




trc8 


. equ 


r8 


; Trinary 


Roll 


Code 


REG 


s 




trc9 


. equ 


r9 


; Trinary 


Roll 


Code- 


REG 


s 




syncl 


. equ 


rlO 


; sync pulse framel 








trclO 


. equ 


rll 


; Trinary 


Roll 


Code 


REG 1 


s 




trcll 


. equ 


rl2 


; Trinary 


Roll 


Code 


REG' 


s 




trcl2 


.equ 


rl3 


; Trinary 


Roll 


Code 


REG'S 




trcl3 


. equ 


rl4 


; Trinary 


Roll 


Code 


REG 1 


s 




trcl4 


.equ 


rl5 


; Trinary 


Roll 


Code 


REG 1 


s 





r*************** ************************************************* 



************************************************************************ 

GENERAL PURPOSE REGISTER GROUP 30H-39H (3Ah-3FH reserved for stack) 
*******i 

REGGRP 30 
TRC15 
TRC16 
TRC17 
TRC18 
TRC19 
SYNC0 



.equ 
.equ 
. equ 
. equ 
. equ 
.equ 
.equ 



30H 

REGGRP 30 
REGGRP 3 0+1 
REGGRP30+2 
REGGRP30+3 
REGGRP30+4 
REGGRP 30+5 



Trinary Roll Code REG's 
Trinary Roll Code REG 1 s 
Trinary Roll Code REG 1 s 
Trinary Roll Code REG's MSB 
sync pulse frameO 
sync pulse frameO 
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RCMIRO 
RCMIR1 
RCMIR2 
RCMIR3 



. equ 
. equ 
.equ 
.equ 



REGGRP3 0+6 
REGGRP30+7 
REGGRP30+8 
REGGRP 3 0+9 



RC mirrored less LSB 
RC mirrored less 
RC mirrored less 
RC mirrored less MSB 



trclS 

trcl6 

trcl7 

trcl8 

trcl9 

syncO 

rcmirO 

rcmirl 

rcmir2 

rcmir3 

; ********' 

; GENERAL 



.equ 
. equ 
.equ 
. equ 
.equ 
. equ 
.equ 
.equ 
. equ 
.equ 



rO 
rl 
r2 
r3 
r4 
r5 
r6 
r7 
r8 
r9 



; Trinary Roll Code REG'S 

; Trinary Roll Code REG 1 s 

; Trinary Roll Code REG ' s 

; Trinary Roll Code REG 1 s 

; sync pulse frameO 

; spare 

; RC mirrored less LSB 

; RC mirrored less 

; RC mirrored less 

; RC mirrored less MSB 



MSB 



PURPOSE REGISTER GROUP 40H-4FH 



a 



REGGRP4 0 
XMTREG 
LPCTR 
s .„ XROO 
UJ XMTREG 1 
ACODEPTR 
MTFLAG 
DIVBY10 
TRCPTR 
UJ TEMPH 
a TEMPL 

i fc TEMP 

Zl MTEMPH 
M MTEMPL 
\*A MTEMP 
\\ SERIAL 
ADDRESS 

! ,s * xmtreg 
lpctr 
xrOO 
xmtregl 
acodeptr 
mtf lag 
divbylO 
trcptr 
temph 
tempi 
temp 
m temph 
mtempl 
mtemp 
serial 
address 
; 



.equ 
. equ 
.equ 
.equ 
.equ 
. equ 
.equ 
.equ 
. equ 
. equ 
.equ 
. equ 
.equ 
. equ 
.equ 
.equ 
. equ 

. equ 
.equ 
.equ 
.equ 
.equ 
. equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
. equ 



40H 

REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 
REGGRP 

rO 

rl 

r2 

r3 

r4 

r5 

r6 

r7 

r8 

r9 

rlO 

rll 

rl2 

rl3 

rl4 

rl5 . 



40 

40 + 1 
40 + 2 
40 + 3 
40 + 4 
40 + 5 
40 + 6 
40 + 7 
40 + 8 
40 + 9 
.40 + 10 
40 + 11 
40 + 12 
40 + 13 
40 + 14 
40 + 15 



ee 
ee 
ee 

memory tern eeprom 

memory tern eeprom 

memory tern eerom 

serial data to/from eeprom 

eeprom address 



GENERAL PURPOSE REGISTER GROUP 50H-5FH 



REGGRP 50 
ACODE0BM - 
ACODE1BM 



. equ 
.equ 
.equ 



50H 

REGGRP 50 ' 
REGGRP 50+1 
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ACODE 2 BM 


. equ 




AC0DE3BM 


.equ 


REGGRP50+3 


ACODE4BM 


.equ 


REGGRP50+4 


APODF ^RM 
ri. V* \JUCj Di 1 


. equ 


KLouKr DU+O 


nLUJJLi DDrl 


. equ 


KlLvjVjKir jU+d 


Ar*Pir>F7RM 
rtV^^L/Tj / DIM 


. equ 




APODF ARM 


. equ 




APDHF QRM 


. equ 


PP^CDD c. A 4. Q 


APODF 1 DRM 


. equ 




nv^UULl J. DIM 


. equ 


KLooKr jUtII 


ft'vUUL X Oil 


. equ 




M^UL^Cj X .3 £5i v l 


. equ 


DrrroD^ rii.1 ^ 

Kr-VjtjKr' jU + 1 J 




. equ 




APOHR T SRM 


. equ 


J\LuuAr jut 1 j 




. equ 


IT U 


a \j \ji t; -L Ui 1 I 


. equ 


t- 1 


dtU Lit; Z UI [ L 


. equ 


r- o 

rz 


acode3bm 


. equ 


r3 


acode4bm 


. equ 


r4 


acodeSbm 


.equ 


r5 


acode6bm 


. equ 


r6 


acode7bm 


. equ 


r7 


acode8bm 


. equ 


r8 ■ 


acode9bm 


. equ 


r9 


acodelObm 


. equ 


rlO 


acodellbm 


. equ 


rll 


acodel2bm 


. equ 


rl2 


acodel3bm 


.equ 


rl3 


acodel4bm 


.equ 


rl4 


acode 15bm 


.equ 


rl5 




; GENERAL 


PURPOSE REGISTER GROUP 601 




REGGRP60 


. equ 


60H 


AC0DE16BM 


. equ 


REGGRP60 


AC0DE17BM 


.equ 


REGGRP 60+ 1 


AC0DE18BM 


.equ 


REGGRP60+2 


AC0DE19BM 


.equ 


REGGRP 6 0+3 


RSFLAG 


. equ 


REGGRP 60 + 4 


XMTFLAG 


.equ 


REGGRP 60+5 


AC19 


.equ 


REGGRP 60+ 6 


RCP 


.equ 


REGGRP60+7 


LPCNTRA 


.equ 


REGGRP 60+8 


FRMCTRH 


. equ 


REGGRP 60+9 


FRMCTRL 


. equ 


REGGRP60+10 


ATMP 


.equ 


REGGRP 60+ 11 


; acode_h 


. equ 


REGGRP60+12 


; a code 1 


. equ 


REGGRP 60+13 


LPCTR1 


. equ 


REGGRP.60 + 14 


APTR 


.equ 


REGGRP60+15 



acode tmp storage 
acode rom pointerh 
acode rom pointerl 
counter 

acode ram pointer 



acode 16bm 
acodel7bm 
acode 18bm 
acodel9bm 
rsf lag 
xmtflag - 
acl9 



.equ rO 

. equ r 1 

.equ r2 

.equ r3 

.equ r4 

.equ r5 

.equ r6 
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rep 

Ipcntra 

f rmctrh 

f rmctrl 

atmp 

acode 

acode_h 

acode_l 

lpctrl 

aptr 



. equ 
. equ 
. equ 
. equ 
. equ 
. equ 
. equ 
. equ 
. equ 
. equ 



r7 

r8 

r9 

rlO 

rll 

rrl2 

rl2 

r!3 

rl4 

rl5 



acode tmp storage 
acode register pair 
acode rom pointer h 
acode rom pointer 1 
counter 

acode ram pointer 



WDT 



WDK 



FILL 



*************•**, 



.macro 
.byte 
. en dm 
.macro 
.byte 
. en dm 
.macro 
.byte 
. endm 



5fh 



4fh 



OFFh 



r *********************************^ 

Interrupt Vector Table ***** 
;**************************************^^^^**^^^^^^^^^^^ 



• ******************** 



********i 



********************* 



***************, 



. org 



0000H 



. word 
.word 
.word 
. word 
. word 
. word 



000CH 
000CH 
000CH 
000CH 
000CH 
Tl INT 



IRQO P3.2 

IRQ1, P3.3 

IRQ2, P3.1 

IRQ3, S/W generated 

IRQ4, S/w generated 

IRQ5, Timer Tl 



********************************************** iticitif 
******************* 
* *** 

********* 

************************************* 



********************** 
***************************************************** 

START (poweron reset or stop mode) ***** 
******************************************** ***********^ + ifir ^ itifir 



************************ 



************ 



.page 
. org 



000CH 



start : 
START: 



di 
WDT 



disable interrupts for init 
hit WDT 



********************************************************** * ititif + icit ^ itiriritiK 

********* Internal RAM Test and Reset All RAM = ?? mS * 

*********************************************************** ic ^ ifitirit ^ itit ^ 



INIT: 



srp 



#XRGRPF 



;no, point to control group use stack 



A-l 
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write_again : 



Id rI5, #4 

clr @rl5 

inc rl5 

cp rl5,#7FH 

jr ult, write_again 



initialize registers 



srp 
Id 



; STACK INITIALIZATION 



^pETSTACK: 

UJ 

UJ 



Id 



TIMER INITIALIZATION 



Id 
Id 
Id 



#REGGRP00 
SMR, #SMR INIT 



spl, #STACKTOP 



prel, #PRE1_INIT 
tl, #T1_INIT 
tmr, #TMR START 



;r!5= pointer (bottom of RAM) 
/write RAM<r5)=0 to memory 
;top of ram 7F 



; set the group 
; set smr reg 



; set the start of the stack 



; set the prescaler 
; set the counter 
; turn on the timer 



'f"V PORT INITIALIZATION 

Q 
O 



; INTERRUPT INITIALIZATION 

;************************** 

; 



clr 


PO 


; set 


portO lo 






clr 


P2 


; set 


port2 lo 






clr 


P3 


; set 


port3 lo 






Id 


p3m, #P3M INIT 




; set port 


3 


mode 


Id 


p2m, #P2M INIT 




; set port 


2 


mode 


Id 


pOlm, #P01M INIT 




; set port 


1 


mode 



SETINTERRUPTS: 



Id 



ipr, #IPR_INIT ; set the priority for timer 
initialize EEPROM by reading it 
CALL READMEMORY 



/settle EE line's 



/ MAIN LOOP 



CKBUTTON1 ; 



CKBUTTON1 



CALL CKB1 

LD ACODE 1 9BM , AC 1 9 

LD RCPTR,RCP 



A-g 
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Get Rolling Code From EEPROM 



EE_ADDRESS 11->RC10B, RC11B, RC12B, RC13B 
EE_ADDRESS 13->RC20B, RC21B, RC22B, RC23B 
EE_ADDRESS 15->RC30B, RC31B,RC32B, RC33B 



INITPTRS : 



CKRC23 : 



a 

; f*APTR15 : 

= ;;getrcode: 
'^getrcode 1 : 

111 
III 



srp 


#REGGRP00 




add 


RCpTR, #3 


;TOP OF RC RAM 


CP 


RCPTR, #RC13B 




JR 


nz / CKRC23 




LD 


ADDRESS, #11 


; EE PTR 


JR 


GETRCODE 




CP 


RCPTR, #RC23B 




JR 


nz, APTR15 




LD 


ADDRESS, #13 




JR 


GETRCODE 




LD 


ADDRESS , #15 




LD 


lpcnt r , #2 




CALL 


READMEMORY 




LD 


@ RCPTR, MTEMPH 


;HI BYTE 


DEC 


RCPTR 




LD 


0RCPTR, MTEMPL 


;LO BYTE 


DEC 


RCPTR 




DEC 


ADDRESS 




DJNZ 


lpcntr, GETRCODE 1 


;done? 


INC 


RCPTR 





Increment Rolling Code by 3 



NCRCBY3 : 



INCRNEXT : 



srp #REGGRP 1 0 

ADD @rcptr,#3d 

LD bitptr,#3d 

INC rcptr 

ADC @rcptr,#0 

DJNZ bitptr, INCRNEXT 



;Add 3 to Rolling Code 



.**★**★*************************************** 
Store updated Rolling Code in EEPROM 

; 



SAVRCODE : 
SAVRCODE1 : 



CALL 


CKB1 


; SAME BUTTON STILL 


CP 


ACODE1 9BM, AC 19 


/PRESSED? 


DP 


nz, SCHTOPP 




srp 


#REGGRP60 




ADD 


ADDRESS, #2 


; START EEPROM ADDRESS 


LD 


lpcntra, #2 




LD 


MTEMPH, @ RCPTR 


;hi byte 


DEC 


RCPTR 


LD 


MTEMPL, 0RCPTR 


;lo byte 


CALL 


WRITEMEMORY 




DEC 


RCPTR 




DEC 


ADDRESS 




DJNZ 


lpcntra, SAVRCODE 1 


INC 


RCPTR 
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get ACODE0BM-ACODE1 8BM from eeprom 



GETACODE : 



ACODONE : 



srp 


#REGGRP4 0 


Id 


address, #9 


Id 


acodeptr, #ACODE18BM 


CALL 


READMEMORY 


Id 


@ acodep t r , mt emph 


DEC 


acodeptr 


CP' 


acodeptr, #4Fh 


JR 


2 , ACODONE 


Id 


@ acodept r , mtempl 


DEC 


address 


djnz 


acodeptr, GETACODE 



: highest eeprom addr 
■highest acode ram addr 

■hi byte 

■ 4fh? done? 



Mirror RCX0,1,2,3 into RCMIRO, 1, 2, 3 and zero MSB 



;?MIRROR : 



! r ^BYTE : 
■4SHIFT: 



srp #REGGRP1 0 

Id codeptr, #RCMIR3 

Id bitptr,#08d 

RL @rcptr 

RRC 6 codeptr 

DJNZ bitptr, SHIFT 

CP codeptr, #RCMIR3 

JR nz,NOTRC3 

AND RCMIR3, #011 11 11 lb 

DEC codeptr 

INC rcptr 

; CP codeptr, #35H 

I - JR nz, NBYTE 

i 

b sub rcptr, #4 

********************************************^ 

Trinary conversion & store in TRC0-TRC1 9 * 



!3fOTRC3 : 



r RCMIR3 FIRST 

r set bit counter to 7 

r shift RC into carry 

r shift carry into mirror 

r if RCMIR3 then 

• set bit 7 RCMIR3 to 0 
next rcrair 



ZAGN: 



CALCTRNY: 



srp 


#REGGRP0 0 


LD 


lpcntr, #36H 


DEC 


lpcntr 


CLR 


@ lpcntr 


CP 


lpcntr, #20H 


JR 


nz, ZAGN 


LD 


TRCXX, #TRC19 


LD 


RCPTR, #2 0 


CP 


RCPTR, #01 


JR 


z, X3XX1 


CALL 


ENTR3 


CP 


RCPTR, #02 


JR 


z, TRICONVXX 


SUB 


RCPTR, #2 


LD 


tcntr, RCPTR 


ADD 


RCPTR, #2 



'set reg pntr 

' ZERO OUT TRC PREVIOUS TRINARY #'s 



rcalc trinary number 

:=2? 



Page 10 



DCODETX.S 



ADDAGN : 



X3XX1 : 



TRICONVXX: 



INCTRCXX: 



ADDXXBK: 



CALL 


ENTR3A 




CALL 


AD3XX 


;add to itself 


CALL 


AD3XX 




CALL 


XFER 




D JNZ 


tent r, ADDAGN 


; TCNTR=0? 


JR 


TRICONVXX 




LD 


x3xabcd, #01h 




clr 


x3xabcdl 




Clr 


x3xabcd2 




clr 


x3xabcd3 




SBC 


RCMIRO, x3xabcd 




SBC 


RCMIR1 , x3xabcdl 




SBC 


RCMIR2 , x3xabcd2 




SBC 


RCMIR3, x3xabcd3 




JR 


C, ADDXXBK 




INC 


@TRCXX 




JR 


TRICONVXX 




CCF 






LD 


lpcnt r, x3xabcd 




ADC 


RCMIRO, lpcntr 


- 


LD 


lpcnt r, x3xabcdl 




ADC 


klmiki , lpcntr 




LD 


lpcntr, x3xabcd2 




ADC 


RCMIR2, lpcntr 




LD 


lpcntr, x3xabcd3 




ADC 


RCMIR3, lpcntr 




DEC 


RCPTR 


; next lower power of 3 


DEC 


TRCXX 


; done with TRC00-TRC1 9 


CP 


TRCXX, #SYNC1 


; sync bit position? 


JR 


nz, NXCP 




DEC 


TRCXX 


; yes 


CP 


TRCXX, #1FH 


; no 


JR - 


nz, CALCTRNY 





NXCP : 



Transmit initialization 
***************************************** 



initialize RSFLAG * 
***************************** 



disrscall : 



tm RS232IP, #RS232IM 

JR z, disrscall 

Id RSFLAG, #0FFh 

srp #REGGRP4 0 

LD SYNC1,#02H 

LD acodeptr, #ACODE0BM-l 

LD trcptr, #SYNC0 

LD BITPTR, #0f f H 

LD CODEPTR, #SYNC0 

LD xmtreg, SYNCO 

LD FRMCTRH, #02H 

LD FRMCTRL, #0A0H 



r DATA IN LO? 

rset rs232 call enable flag 

r set reg pntr 

r INITIALIZE SYNC1 

: initialize 

r for xmt 



04H INIT FRAME COUNTER H 
OBH INIT FRAME COUNTER L- 



A- il 
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clr address 

LD RS232DOCOUNT, #11D 

LD RS232DICOUNT, #0FFH 

LD RSCOMMAND, #0FFH 

clr mtflag 



/address for RS232 xfer 
;turn off RS232 output 
;turn off RS232 input 
/incoming data present 
;turn off rs232 command 
/initialize mtflag 



*************************************************** 

Wait for transmit INT * 
****************************************************** 



LOOP : 



LD 
EI 



IMR, #TIMER ON IMR 



/ INT Mask enable 
/enable INT 



. **********************j^g_232 Ro utine************************************ 



RSDATRDY: 



= !l RCVMTL: 



.^RCVMTH : 



CP RSCOMMAND, #0FFH /RS232 DATA IN ? 

JR Z , XMTMTL 

CP mtflag, #0 

jr z,RCVMTH 

LD mtempl, RS232DI 

Id RSCOMMAND, #0FFH 

clr mtflag 

call W.RITEMEMORY 

call READMEMORY 

Id RS2 32DO, mtemph 

Id RSSTART, #0FFH 

Clr RS2 32DOCOUNT 

Id XMTFLAG, #0FFh 

inc address 

cp address, #16D 

jr nz, XMTMTL 

clr address 

jr XMTMTL 

Id mtemph, RS232DI 

Id RSCOMMAND, #0FFH 

Id mtflag, #0FFH 



r input mtempl 

;reset mtflag 
; write mtempl to EEprom 
r read mtempl from EEprom 
rrs232 echo back 
; mtemph 

rset flag 

; set address to 0 
; mtemph 



XMTMTL: cp XMTFLAG, #0FFh / ck for xmt first byte 

jr nz,CKSWS 

cp RS232DOCOUNT, #1 ID/ test for output done 

jr nz,CKSWS 

Id RS232DO, mtempl /echo back mtempl 

Id RSSTART, #0FFH 

Clr XMTFLAG 



CKSWS : 



SCHTOPP: 



CP 
JR 
cp 
JR 

STOP 



FRMCTRH, #0 
nz, LOOP 
FRMCTRL, #0 
nz, LOOP 



; FRAME CTR = 0? 



************************************************** 

TIMER 1 INTERRUPT ROUTINE * 
*****************************************************^ 

Tl INT: 



CALL 
EI 
CP 
JR 



CKB1 

RSFLAG, # OFFh 
nz, BEGINT 



/enable interrupt 

/RS2 32 CALL ENABLE FLAG 



A- 12- 
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Up 



□ 



k=i= 





call 


RS232 


;RS232 I/O 




push 


RP 


/ ? 


. ************** 


INT pulse on P2 6* ******************************** * 




OR 


P2, #01000000B 


;set P26 hi * 




NOP 




* 




AND 


P2, #10111111b 


;set P26 lo * 




. ************** 


FRAME 0 


sync pulse on P2 6* *********************** * 




CP 


LPCNTR, #00H 


/testing frame sync pulse 




JR 


nz, NOSYNC 


/testing frame sync pulse 




OR 


P2, #01000000B 


;set frame sync pulse hi 




JR 


BEGINT 


•NOSYNC: 


AND 


P2, #10111111b 


; set frame sync pulse lo 


;************************************************************* 


BEGINT • 


INC 


BITPTR 






CP 


t.pcntr #no 

JU£r V_»l>l J. P. f Tt \J \J 






JR 


i 1 / IN C A i 






CP 


BITPTR, #00 


/BITPTR 0 ? 




JR 


nz, NEXT 






SUB 


FRMCTRL, #1 


/ DECREMENT FRAME COUNTER 






FRMCTRH, #0 




NEXT : 


CALL 


XMT 


; XMT next bit 




CP 


LPCTR, #45 


/nibble 45? 




JR 


nz,CKBP5 




CKBP3 : 


CP 


BITPTR, #1 






JR 


z, BPOO 






IRET 






CKBP5 : 


CP 


BITPTR, #03h 






JR 


z, BPOO 






IRET 






BPOO: 


LD 


BITPTR, # OFFH 


/reset bit pointer 




INC 


LPCNTR 


/increment nibble pointer 


CK2145: 


CP 


LPCNTR, #21 


/ lpcntr>20? 




JR 


mi,CK6790 


; no 


LP46: 


CP 


LPCNTR, #4 6 


/yes, lpcntr<4 6 




JR 


pi, CK6790 




XMROO: 


LD 


xmtreg, #3 


;yes 




IRET 






CK6790: 


CP 


LPCNTR, #67 


/no 




JR 


mi, LP91 






CP 


LPCNTR, #91 






JR 


mi, XMROO 




LP 91 : 


CP 


LPCNTR, #91 


;LPCNTR=91? 




JR 


z, LPCTROO 




LPCTROORET: 










TM 


LPCNTR, #00000001b ; LPCNTR bitO-0? 




JR 


nz, INCACODE 






DEC 


trcptr 


;no 




LD 


CODEPTR, trcptr 






LD 


xmtreg, GCODEPTR 






IRET 






INCACODE : 


INC 


acodept r 


; yes 




LD 


CODEPTR, acodept r 






LD 


' xmtreg, GCODEPTR 






IRET 
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LPCTROO : 


clr 


LPCNTR 




LD 


TRCPTR, #SYNCO 




LD 


acodeptr, #ACODE0BM-l 




LD 


xmtreg, SYNCO 




LD 


CODEPTR, #SYNC0 




IRET 




.***************************************************************^ 




ADD TRINARY NUMBER TO ITSELF ROUTINE * 


.***********************************************************************^ 


AD 3 XX : 


ADD 


x3xabcd, x3xtmp ;add to itself 




ADC 


x3xabcdl, x3xtmpl 




ADC 


x3xabcd2, x3xtmp2 




ADC 


x3xabcd3, x3xtmp3 




ret 




XFER: 


LD 


x3xtmp, x3xabcd 




LD 


x3xtmpl, x3xabcdl 




LD 


x3xtmp2 , x3xabcd2 


3 


LD 


x3xtmp3, x3xabcd3 


Q 


ret 




% ENTR3 : 


LD 


x3xabcd, #03h 




clr 


x3xabcdl 




clr 


x3xabcd2 




clr 


x3xabcd3 


1 1 


ret 




^ ENTR3A: 


LD 


x3xtmp, #03h 




clr 


x3xtmpl 




clr 


x3xtmp2 


»l 


clr 


x3xtmp3 




ret 




J. ******************* ***************************************************** 




TRANSMIT ROUTINE * 


s " c .********************* 


************************** *'* *********************** 


! " B XMT : 


CP 


XMTREG, #3 ; BLANK TIME? 




JR 


z, SBOLO ;yes 




CP 


XMTREG, #2 ; force trinary 




JR 


ule,XMM 




Id 


XMTREG, #2 ;TWO 


XMM: 


LD 


XMTREG 1, XMTREG ; no, get xmt code 




COM 


XMTREG 1 /compliment 




AND 


XMTREG1, #00000011b ;mask 2 LSB 




CP 


XMTREG1 , BITPTR ; compare bitptr to xmtreg 




JR 


le, SBOHI 


SBOLO: 


AND 


PO, #11111110b ;set POO lo 




RET 




SBOHI : 


OR 


PO, #00000001b ;set POO hi 




RET 




.************************************************************************ 


; WRITE 


WORD TO MEMORY 





ADDRESS IS SET IN REG ADDRESS 
DATA IS IN REG MTEMPH AND MTEMPL 
RETURN ADDRESS IS UNCHANGED 
************************************************************************ 

WRITEMEMORY: 

push RP ; SAVE THE RP 
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srp 


#REGGRP4 0 


set the register pointer 


Call 


CTADTD . 

o i AK Id ; 


output the start bit 


Id 


serial, #00110000B 


; set byte to enable write 


call 


SERIALOUT 


; output the byte 


and 


csport , #csl 


; reset the chip select 


call 


STARTB 


output the start bit ' 


Id 


serial, #01000000B 


; set the byte for write 


or 


serial, address 


; or in the address 


call 


SERIALOUT 


; output the byte 


Id 


serial, mtemph 


; set the first byte to write 


call 


SERIALOUT 


; output the byte 


Id 

e 


serial, mtempl 


; set the second byte to writ 


call 


SERIALOUT 


; output the byte 


call 


ENDWRITE 


; wait for the ready status 


call 


STARTB 


output the start bit 


clr 


serial 


set byte to disable write 


call 


SERIALOUT 


; output the byte 


and 


csport , #csl 


; reset the chip select 


pop 


RP 


; reset the RP 


ret 








; READ WORD FROM MEMORY 






; ADDRESS IS SET IN REG 


ADDRESS 




; DATA IS RETURNED IN REG MTEMPH AND MTEMPL 


; ADDRESS IS UNCHANGED 






; **************************************^ 


READMEMORY : CALL 


CKB1 




push 


RP 




srp 


#REGGRP4 0 


set the register pointer 


call 


STARTB 


output the start bit 


Id 


serial, #10000000B 


; preamble for read 


or 


serial, address 


; or in the address 


call 


SERIALOUT 


; output the byte 


call 


SERIALIN 


; read the first byte 


Id 


mtemph, serial 


; save the value in mtemph 


call 


SERIALIN 


; read teh second byte 


Id 


mtempl, serial 


; save the value in mtempl 


and 


csport, #csl 


; reset the chip select 


pop 


RP 


ret 






. *★*★★★★*******■******★*) 


************************************************** 


; START BIT FOR SERIAL NONVOL 




; ALSO SETS DATA DIRECTION AND AND CS 






STARTB: 






Id 


P2M, #P2M_INIT 


set port 2 mode forcing output mode 


data 




and 


csport, #csl 


* 


and 


clkport , #clockl 


; start by clearing t 


he bits 




and 


dioport , #dol 




or 


csport, #csh 


; set the chip select 


or 


dioport, #doh 


; set the data out high 


or 


clkport, #clockh 


; set the clock 



A- is 
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and 


clkport, #clockl 




; reset the clock low 




and 


dioport , #dol 




; set the data low 




ret 






; return 


.************************************************************************ 


; END OF CODE 


WRITE 








•************************************************************************ 


ENDWRITE : 












Id 


P2M,#(P2M INIT+1) 




set oort 2 mode f orcina ino 


ut mode data 










and 


csport, #csl 




; reset the chip select 




nop 






; de lay 




or 


csport , #csh 




; set the chip select 


ENDWRITELOOP: 


WDT 






; kick the dog 




cp 


LPCNTRA, #1 






jr 


nz, EWRLP 








call 


CKB1 






EWRLP : 


Id' 


teniph, dioport 




; read the port 




and 


temph, #doh 




; ma s k 




- jr 


z, ENDWRITELOOP 


if 


the bit is low then loop till we 


are done 










and 


csport , #csl 




; reset the chip select 




Id 


P2M, #P2M_INIT 


set 


port 2 mode forcing output mode 




ret 








. ************* 


******* 


******************** 


* * * * 


**************************** . 


; SERIAL OUT 










; OUTPUT THE BYTE IN 


SERIAL 






. ******************** 


******************** 


* K * * 


**************************** 


SERIALOUT : 


Id 


P2M, #P2M_INIT 


set 


port 2 mode forcing output mode 


data 










Id 


tempi, #8H 




; set the count for eight bit 


s 

SERIALOUTLOOP : 












rlc 


serial 




; get the bit to output into 


the carry 












jr 


nc, ZEROOUT 




; output a zero if no carry 


ONEOUT : 










or 


dioport, #doh 




; set the data out high 




or 


clkport, #clockh 




; set the clock high 




and 


clkport, #clockl 




; reset the clock low 




and 


dioport, #dol 




; reset the data out low 




d jnz 


tempi, SERIALOUTLOOP 












; loop till done 




ret 






; return 



ZEROOUT : 



and 
or 
and 
and 
d jnz 

ret 



dioport, #dol 
clkport, #clockh 
clkport, #clockl 
dioport, #dol 
tempi, SERIALOUTLOOP 



reset the data out low 
set the clock high 
reset the clock low 
reset the data out low 

loop till done 
return 



************************************************************************ 
SERIAL IN 

INPUTS A BYTE TO SERIAL 
************************************************************************ 

SERIALIN :- 

Id P2M, # (P2M__INIT+1) ; set port 2 mode forcing inp 



A -Hp 
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ut mode data 





Id 


tempi, # 8H 


set the count for eight bit 


s 

SERIALINLOOP : 










or 


clkport , #clockh 


set the clock high 




rcf 




reset the carry flag 




Id 


temph, dioport 


read the port 




and 


temph, #doh 


mask out the bits 




jr 


z , DONTSET 






scf 




set the carry flag 


DONTSET: 










• rlc 


serial 


get the bit into the byte 




and 


clkport , #clockl 


reset the clock low 




d jnz 


tempi, SERIALINLOOP 










loop till done 


; 
'" 


ret 




return 


RS2 32 


DATA ROUTINES 




; enter 


rs232 


start with word to output in 


• 

rs232do 


RS2320START : 


clr 


rsstart 


one shot 




Id 


rs232odelay, #6d 


set the time delay to 3. mS 




clr 


rs232docount 


start with the counter at 0 




and 


RS2320P, #RS2320C 


clear the output 




jr 


NORSOUT 




RS232 : 


push 


rp 


save the rp 




srp 


#REGGRP 10 


set the group pointer 




cp 


RSSTART, #0FFH 


test for the start flag 




jr 


z, RS2320START 




RS2 320UTPUT : 








cp 


rs232docount , #lld 


test for last 




jr 


nz, RS232R 






or 


RS2320P, #RS2320S 


set the output idle 




JR 


NORSOUT 




RS232R : 










d jnz 


rs232odelay, NORSOUT 


; cycle count time de 


lav 










inc 


rs232docount 


; set the count for t 


he next cycle 










scf 




; set the carry flag 


for stop bits 










rrc 


rs232do 


; get the data into t 


he carry 










jr 


c, RS232SET 


; if the bit is high 


then set 










and 


RS2320P, #RS2320C 


; clear the output 




jr 


SETTIME 


find the delay time 


RS232SET: 








or 


RS2320P, #RS2320S 


; set the output 


SETTIME: 










Id 


rs232odelay, #6d 


set the data output delay 




tm 


rs232docount, #00000001b ; 


test for odd words 




jr 


z, NORSOUT 


; if even done 
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Id 



2mS 

NORSOUT : 
RS232INPUT: 



ump 



cp 
tm 



ata for lo start bit 
1 idle then skip 

clr 



RECEIVING: 

CI U P 
'£) 

ut 

rn 

'ZIP 

:a r= ata 
UJ 

Ui etting carry 

js 

|„ t SKIPSETTING: 
the memory 



DIEVEN: 

till next start 
NORSIN: 



Id 



d jnz 

inc 
cp 

jr 
tm 

rcf 
jr 

scf 

r rc 

Id 
tm 
jr 
Id 
jr 

Id 

Id 
clr 



rs232odelay, #7d 



rs232dicount, #0FFH 
nz, RECEIVING 

RS232IP, #RS232IM 

nz, NORSIN 

rs232dicount 
rs232idelay, #3 

rs2 32 idelay, NORSIN 

rs232dicount 
rs232dicount , #10d 

z, DIEVEN 

RS232IP, #RS232IM 
z, SKIPSETTING 



rs232di 

rs232idelay, #6d 
rs232dicount, #00000001b 
z, NORSIN 
rs232idelay, #7 
NORSIN 

rs232dicount, #0FFH 

rscommand, rs232di 
rsccount 

rp 



set the delay to 7 for odd 
; this gives 6.5 *.51 



test mode 

if receiving then j 

test the incoming d 

if the line is stil 

start at 0 

set the delay to mi 



skip till delay is 

bit counter 

test for last timeo 



; test the incoming d 

; clear the carry • 
if input bit not set skip s 

; set the carry 

; save the data into 

; set the delay 
test for odd 

; if even skip 
; set the delay 



pop 
ret 

********************* *CKB* i***************** 1 



CKB1 : 



CKB2 : 



CKB3; 



WDT 
tern 

jP 
Clr 
Id 
RET 

tern 

DP 
Id 
Id 
RET 

tern 



P3, #S1 

nz,CKB2 

AC19 

RCP, #RC10B 



P3, #S2 
nz,CKB3 
AC19, #S2B39 
RCP, #RC2 0B 



; turn off the input 

; save the value 

; clear the counter 

; return the rp 

r************************* 

; HIT WDT 

; switch 1 pressed? 



,#S1B39 yes 

;set rcptr si 



■ yes 



P3, #S3 



;no, switch 2 pressed? 

;set rcptr s2 

;no, switch 3 pressed? 
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jp nz, HELL 

Id AC19,#S3B39 ;yes 

Id RCP,#RC30B ;set rcpt 

RET 



HELL: NOP 

jr CKB1 
STOP 

FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 

rj FILL 



FILL 
FILL 
FILL 



'fl 

CO FILL 
M FILL 

FILL 

r<: fill 

WJ .end 
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TO SET JO 2uS dear each edge if timer extension times out then clear radio 
T1 set to 1 uS for 256 uS roll to turn on the interrupts and to generate the 1 mS 



Bit 35 Bit 37 


Bit 39 


ID BIT 


Type 


0 0 


Add In 


0 


Normal CMD 


0 1 


Add In 


1 


Touch code 


0 2 


Add In 


2 


Security 


1 0 


Add In 


3 


IR Protector 


1 1 


Key ID 


4 


Wall control 


1 2 


Key ID 


5 


Up Down CMD 


2 0 


Key ID 


6 


Up Down Stop 


2 1 


Don't learn 


7 


Open Door Indicator 


2 2 


Don't learn 


8 


Aux Function 


NON-VOL MEMORY MAP 



00 


A1 


RA1 


01 


A1 


RA1 


02 


A2 


RC1 


03 


A2 


RC1 


04 


A3 


RA2 


05 


A3 


RA2 


06 


A4 


RC2 


07 


A4 


RC2 


08 


A5 


RA3 


09 


A5 


RA3 


OA 


A6 


RC3 


0B 


A6 


RC3 


OC 


A7 


RA4 


0D 


A7 


RA4 


0E 


A8 


RC4 


OF 


A8 


RC4 


10 


A9 


RA5 


11 


A9 


RA5 


12 


A10 


RC5 


13 


A10 


RC5 


14 


A11 


RA6 


15 


A11 


RA6 


16 


A12 


RC6 


17 


A12 


RC6 


18 


B 


RA7 


19 


B 


RA7 


1A 


C 


RC7 


1B 


C 


RC7 



RADIOP5 
RADI01 P5 
COUNTP5 
COUNT1 P5 



1C CYCLE COUNTER 1ST 16 BITS 
1 D CYCLE COUNTER 2ND 1 6 BITS 
IE VACATION FLAG 

1 F A MEMORY ADDRESS LAST WRITTEN 
0XXXXXXX ABC CODES 
1 XXXXXXX D CODES 



20-2F OPERATION BACKTRACK 
30-3F FORCE BACK TRACE 



EQUATE STATEMENTS 



check sum value 


.equ 


0A2H 


TIMER 0 


.equ 


10H 


TIMER 0 EN 


.equ 


03H 


TIMER_1_EN 


.equ 


OCH 


P01M INIT 


.equ 


000001 00B 


P2M INIT 


.equ 


00100100B 


P3M INIT 


.equ 


0000001 1B 


P01S INIT 


.equ 


00O0OO0OB 


P2S INIT 


.equ 


001 0011 OB 


P3S INIT 


.equ 


00000000B 



; set mode p00-p03 out 

; set port3 p30-p33 ANALOG input 



PERIODS 



MONOPER 
RTOPERIOD 



.equ 
.equ 



38D 
130D 



INTERRUPTS 



ALL_ONJMR 
RETURN IMR 



.equ 
.equ 



00111001b 
00111001b 



; MONOSTABLE PERIOD MmS 
; period *4mS => min 4* period 



; turn on int for radio 
; return on the IMR 



Counter group 



CounterGroup 


.equ 


00 


; counter group 


LastMl Match 


.equ 


05H 


; last match 1 delay location 


LastMatch 


.equ 


06H 


; last matching code address 


LoopCount 


.equ 


07H 


, loop counter 


CounterA 


.equ 


08H 


counter translation MSB 


CounterB 


.equ 


09H 




CounterC 


.equ 


OAH 




CounterD 


.equ 


OBH 


counter translation LSB 


MirrorA - 


.equ 


OCH 


back translation MSB 


MirrorB 


.equ 


ODH 




MirrorC 


.equ 


OEH 




MirrorD 


.equ 


OFH ; 


back translation LSB 




ioopcount 

countera 

counterb 

counterc 

counterd 

mirrora 

mirrorb 

mirrorc 

mirrord 



.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 



r7 
rS 
r9 

no 

r11 
r12 
r13 
r14 
r15 



; LEARN MODE SWITCHES AND ERASE 


LearnModeGroup 


.equ 


10H 


SW_B 


.equ 


LearnModeGroup 


CmdSwitch 


.equ 


LearnModeGroup+1 


LearnDebounce 


.equ 


Learn M odeG rou p+2 


LearnTimer 


.equ 


LearnModeGroup+3 


SkipRadio 


.equ 


Learn M odeG ro u p+4 


ClearCount 


.equ 


LearnModeGroup+5 


EraseTimer 


.equ 


Learn M odeG roup+6 


BIT13 


.equ 


Learn M odeGroup+7 


BIT1P5 


.equ 


LearnModeGroup+8 


ID B 


.equ 


LearnModeGroup+9 


LASTBIT 


.equ 


LearnModeGroup+1 0 


PAST.MATCH 


.equ 


LearnModeGroup+1 1 


Mono 


.equ 


LearnModeGroup+1 3 


RadioTimeOut 


.equ 


LearnModeGroup+1 4 


SwitchSkip 


.equ 


LearnModeGroup+1 5 


cmdswitch 


.equ 


r1 


learndb 


.equ 


i2 


learnt 


.equ 


r3 


skipradio 


.equ 


r4 


eraset 


.equ 


r6 


rto 


.equ 


r14 


mono 


.equ 


r13 



; LEARN EE GROUP FOR LOOPS ECT 



LearnEeGroup 
TempH 
TempL 
Temp 

COUNT1P5H 

COUNT1P5L 

CMP 

MTempH 

MTempL 

MTemp- 

Serial 

Address 

TOExt 

T4MS 



.equ 


20H 


.equ 


LearnEeGroup 


.equ 


LearnEeGroup+1 


.equ 


LeamEeGroup+2 


.equ 


Learn EeGroup+3 


.equ 


LearnEeGroup+4 


.equ 


LeamEeGroup+5 


.equ 


LearnEeGroup+6 


.equ 


Learn EeGroup+7 


.equ 


LearnEeGroup+8 


.equ 


Learn EeGroup+9 


.equ 


LearnEeGroup+1 0 


.equ 


LeamEeGroup+1 1 


.equ 


LearnEeGroup+1 2 



command switch 
learn switch debouncer 
learn timer 

flag to skip the radio read 
erase timer 



radio time out 



counter value memory 
counter value memory 

; memory temp 
; memory temp 
; memory temp 

; serial data to and from nonvol memory 
; address for the serial nonvol memory 
; timer 0 extend dec every TO int 
; 4 mS counter 



• 



T125MS 

COUNTP5H 

COUNTP5L 

temph 

tempi 

temp 

cmp 

mtemph 

mtempl 

mtemp 

serial 

address 

tOext 

t4ms 

t125ms 



.equ LearnEeGroup+1 3 
.equ LearnEeGroup+14 
.equ LearnEeGroup+1 5 



.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 



rO 
r1 
r2 
r5 
r6 
r7 
r8 
r9 

no 

r11 
r12 
r13 



; 125mS counter 

; counter value memory 

; counter value memory 



memory temp 
memory temp 
memory temp 

serial data to and from nonvol memory 
address for the serial nonvol memory 
timer 0 extend dec every TO int 
4 mS counter 
125mS counter 



RADIO GROUP 

****************************** A**************** 

RadioGroup 
RTemp 
RTempH 
RTempL 
RTimeAH 
RTimeAL 
RTimelH 
RTimelL 
RadioPSH 
RadioPSL 
PointerH 
PointerL 
AddValueH 
AddValueL 
RadioC 
Radiol P5H 
Radiol P5L 
rtemp 
rtemph 
rtempl 
rtimeah 
rtimeal 
rtimeih 
rtimeil 
radiopSh 
radiopS! 
pointerti 
pointer! 
addvalueh 
addvaluel 
radioc 
radio1p5h 
radio 1p5l 



.equ 


30H 


.equ 


RadioGroup 


.equ 


RadioGroup* 1 


.equ 


RadioGroup+2 


.equ 


RadioGroup+3 


.equ 


RadioGroup+4 


.equ 


RadioGroup+5 


.equ 


RadioGroup+6 


.equ 


RadioGroup+7 


.equ 


RadioGroup+8 


.equ 


RadioGroup+9 


.equ 


RadioGroup+10 


.equ 


RadioGroup+11 


.equ 


RadioGroup+12 


.equ 


RadioGroup+13 


.equ 


RadioGroup+14 


.equ 


RadioGroup+15 


.equ 


rO 


.equ 


n 


.equ 


r2 


.equ 


r3 


.equ 


r4 


.equ 


r5 


.equ 


r6 


.equ 


r7 


.equ 


r8 


.equ 


rS 


.equ 


no 


.equ 


r11 


.equ 


r12 


.equ 


n3 


equ 


r14 


equ 


r15 



; radio temp storage 
; radio temp storage high 
; radio temp storage low 
; radio active time high byte 
; radio active time low byte 
; radio inactive time high byte 
; radio inactive time low byte 
; .5 code storage 
; .5 code storage 



; radio word count 
; 1.5 code storage 
; 1.5 code storage 
; radio temp storage 
; radio temp storage high 
; radio temp storage low 
; radio active time high byte 
; radio active time low byte 
; radio inactive time high byte 
; radio inactive time low byte 
; radio .5 code storage 
; radio .5 code storage 



; radio word count 

; radio 1 .5 code storage 

; radio 1 .5 code storage 



/I '23 



Check sum group with past radio data 



CheckGroup 

check_sum 

rom_data 

test_adr_hi 

test_adr_lo 

rflag 

test_adr 

pradioa 

pradiob 

pradioc 

pradiod 

pradioe 

pradiof 

pradiog 

pradioh 

Check_Sum 

Rom^Data 

RFlag 

RlnFilter 

PRadioA 

PRadioB 

PRadioC 

PRadioD 

PRadioE 

PRadioF 

PRadioG 

PRadioH 



.equ 


40H 


.equ 


rO 


.equ 


rl 


.equ 


r2 


.equ 


r3 


.equ 


r4 


.equ 


rr2 


.equ 


r6 


.equ 


r7 


.equ 


f8 


.equ 


r9 


.equ 


no 


.equ 


rl 1 


.equ 


r12 


.equ 


r13 


.equ • 


CheckGroup+O 


.equ 


CheckGroup+1 


.equ 


CheckGroup+4 


.equ 


CheckGroup+5 


.equ 


CheckGroup+6 


.equ 


CheckGroup+7 


.equ 


CheckGroup+8 


.equ 


CheckGroup+9 


.equ 


CheckGroup+OAH 


.equ 


CheckGroup+OBH 


.equ 


CheckGroup+OCH 


.equ 


CheckGroup+ODH 



; check sum pointer 



; check sum reg for por 
; data read 
; radio flags 
; radio input filter 
; past recieved value 
; past recieved value 
; past recieved value 
; past recieved value 
; past recieved value 
; past recieved value 
; past recieved value 
; past recieved value 



I 

; Timer group with rs232 data 



TimerGroup 


.equ 


50H 


rs232do 


.equ 


rS 


rs232di 


.equ 


r6 


rscommand 


.equ 


r7 


rs232docount 


.equ 


r8 


rs232dicount 


.equ 


r9 


rs232odelay 


.equ 


no 


rs232idelay 


.equ 


m 


rs232ccount 


.equ 


r12 


rs232page 


.equ 


n3 


rsccount 


.equ 


n4 


rsstart 


.equ 


ns 


RADIO_CMD 


.equ 


TimerGroup+OH 


TaskSwitch 


.equ 


TimerGrouj>+2H 


SysDisable 


.equ 


TimerGroup+3H 


ADD2 


.equ 


TimerGroup+4H 



; radio command 

; system disable timer 



RS232DO 


.equ 


TimerGroup+5 




RS232DI 


.equ 


TimerGroup+6 




RSCommand 


.equ 


TimerGroup+7 




RS232DoCount 


.equ 


TimerGroup+8 




RS232DiCount 


.equ 


TimerGroup+9 




RS232O0elay 


.equ 


TimerGroup+10 




RS232IDelay 


.equ 


TimerGroup+11 




RS232CCount 


.equ 


TimerGroup+12 




RS232Page 


.equ 


TimerGroup+13 




RSCount 


.equ 


TimerGroup+14 


; rs232 byte counter 


RSStart 


.equ 


TimerGroup+15 


; rs232 start flag 


TestVal 


equ 


TimerGroup+16 


; test value 



STACKTOP 
STACKEND 



.equ 
.equ 



127D 
060H 



; start of the stack 
end of the stack 



RS2320S 

RS2320C 

RS2320P 

RS232IP 

RS232IM 

csh 

csl 

clockh 
clockl 
doh 
dol 

csport 

dioport 

clkport 



.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 



000001 00B 

11111011B 

P0 

P3 

0000001 0B 

00000001 B 

11111110B 

0000001 0B 

11111101B 

00000001 B 

11111110B 

P0 

P2 

PO 



RS232 output bit set 
RS232 output bit clear 
RS232 output port 
RS232 input port 
RS232 mask 

chip select high for the 93c46 
chip select low for 93c46 
clock high for 93c46 
clock low for 93c46 
data out high for 93c46 
data out low for 93c46 
chip select port 
data i/o port 
clock port 



WDT .macro 

.byte 5fh 
.endm 

WDH .macro 

.byte 4fh 
.endm 

Fill .macro 

.byte 0FFH 
.endm 

Interrupt Vector Table 

- • .org 0000H 



.word RadioNeglnt 
.word 000CH 
.word 0O0CH 



IRQO P3.2n 
IRQ1 , P3.3 
IRQ2, P3.1 



.word RadioPosint 

.word TimerZeroInt 
.word TimerOnelnt 



IRQ3, P3.2 p FOR EMULATION 
USE P3.0 FROM 28 PIN 
IRQ4, TO 
IRG5, T1 



org 



page 
OOOCH 



************************************************************************ 
WATCHDOG INITILIZATION 

************************************************************************ 



start: 
START: 



di 

WDH 
WDT 



; turn oft the interrupt for init 
; kick the dog 



************************************************************************ 

Internal RAM Test and Reset All RAM = mS 
************************************************************************ 

; point to control group use stack 
;r15= pointer (minimum of RAM) 

; KICK THE DOG 



write_again: 
write_again1 : 



srp 


#OFOh 


Id 


r15,#4 


WDT 




Id 


r14,#1 


Id 


<3>r15,r14 


cp 


r14,@r15 


jr 


ne,system_error 


rl 


r14 


i r 


nc.write again 1 


clr 


@r15 


inc 


M5 


cp 


r15,#7FH 


jr 


ult,write_again 



;write 1,2,4,8,10,20,40,80 
;then compare 



;write RAM(r5)=0 to memory 



************************************************************************ 
* Checksum Test 

***************************** ***********^******************************* 



CheckSumTest: 



add sum: 



srp #CheckGroup 
Id test_adr_hi,#07H 
Id test_adr_Jo,#0FFH 



WDT 
Idc 
add 



system_error: 



rom_data,@test_adr 
check_sum,rom_data 
decw test_adr 
jr nz,add_sum 
cp check_sum,#check_sum_value 
jr system_ok 
jr z,system_ok 

and P2,#11011101B 



;maximum address=fffh 

KICK THE DOG 
read ROM code one by one 
add it to checksum register 
increment ROM address 
address =0 ? 



;check final checksum = 00 ? 
; turn on the LED to indicate fault 



Id 



P2M.#P2M 1NIT 



i turn on thG LED to indicate fault 



system_ok: 



jr system_error 

.byte 256-check_sum_value 

WDT 

srp #Learn M odeGroup 

Id eraset,#OFFH 

Id CmdSwitch,#OFFH 

Id learnt,#OFFH 

Id learndb,#OFFh 

Id RSCommand,#OFFH 

Id RS232DoCount,#1 1 D 



; kick the dog 

; set the group 

; set the erase timer 

; set the switch debouncer 

; set the learn timer 

; set the learn debounce 

; turn off the rs232 command 

; turn off the rs232 output 



STACK INITILIZATION 
SetStack: 



clr 254 * 

Id 255,#STACKTOP ; set the start of the stack 



TIMER INITILIZATION 



Id PRE0,#O0OO1001B 

Id PRE1,#00000111B 

clr TO 

clr T1 

Id TMR,#00001111B 



; set the prescaler to / 2 for 8Mhz 
; set the prescaler to / 1 for 8Mhz 
; set the counter to count FF through 0 
; set the counter to count FF through 0 
; turn on the timers and load 



PORT INITILIZATION 



Id P0,#P01SJNIT 

Id P2,#P2SJNIT 

Id P3.#P3S_INIT 

Id P01M,#P01MJNIT 

Id P3M,#P3MJNIT 

Id P2M,#P2MJNIT+1 



RESET all ports 



set mode 

set port3 p30-p33 input analog mode 
set port 2 mode 



MEMORY INITILIZATION 



Id Address,#3EH ; set non vol address to UNUSED 

call ReadMemory ; read the value to INIT 



A' 2 -' 7 



INITERRUPT INITILIZATION 



Setlnterrupts: 



Id IPR ( #00000001B 
Id IMR,#ALL_ONJMR 
clr IRQ 



; set the priority to timer 
; turn on the interrupt 
; CLEAR IRG'S 



> ************** 
MAIN LOOP 



********************************************************* 



MainLoop: 



TestRS232: 



SWIOUT: 

SW20UT: 

L10UT: 
TEST34: 

TEST35: 



ei 

and P2,#01111111b 
WDT 

Id P01M,#P01MJNIT 

Id P3M,#P3M_INIT 

Id P2M,#P2MJNIT+1 

call LEARN 

srp #TimerGroup 

cp rsstart,#OFFH 

jr z ( skiprs232 

cp rscommand,#OFFH 

jr z f skiprs232 

cp rs232docount,#1 1 d 

jr nz,skiprs232 

cp rscommand,#30H 

jr nz,TEST34 

clr rs232do 

cp LearnDebounce,#OFFH 

jr nz.SWlOUT 

or rs232do,#00000001 B 

cp CmdSwitch f #OFFH 

jr nz,SW20UT 

or rs232do,#0000001 OB 

cp LearnTimer,#OFFH 

jr nz,L10UT 

or rs232do,#00001 OOOB 



jr VacSwOpen 

cp rscommand,#34H 

jr nz,TEST35 

Id rs232page,#00H 

jr RS232PageOUT 

cp rscommand,#35H 

jr nz,TEST38 



; enable interrupt 
; turn off the flag 
; kick the dog 
; set mode 

; set port3 p30-p33 input analog mode 
; set port 2 mode 

; do the learn switch 



test for starting a transmission 
if starting a trans skip 
test for the off mode 

; test for output done 

; if not the skip 

; test for switch data 

; clear the data 

; test switch one 

; set the marking bit 

test switch 2 

set the marking bit 
; test for learn 1 
; set the marking bit 



; test for page 0 



; test for page 1 



Id 



rs232page,#10H 



RS232PageOUT: 



RPBYTE: 



LASTRPM: 
VacSwOpen: 



skiprs232: 



Id 

dec 

Id 

rcf 

rrc 

or 

call 

Id 

tm 

jr 
Id 

cp 

jP 
clr 

dec 
Id 



jP 



TEST38: 

cp 

V 

Id 

srp 

dec 

Id 

Id 

call 

call 

Id 

call 

call 

CLEARALL: 

call 
clr 

MEMORYERROR: 
Id 

STARTOUT: 

inc 
dec 



SkipRadio,#OFFH 
SwitchSkip 

Address.rsccount 

Address 

Address,rs232page 

ReadMemory 

rs232do,MTempH 

rsccount,#01 H 

z.RPBYTE 

rs232do,MTempL 

rsccount,#1 FH 
nz.STARTOUT . 
rsccount 

rsstart 

rscommand,#OFFH 



SKIPRS232 



rscommand,#38H 

nz,SKIPRS232 

rs232do,#0FFH 

#LeamEeGroup 

SwitchSkip 

SkipRadio,#OFFH 

mtemph,#OFFH 

WRITEALL 

TESTALL 

mtemph,#OOOH 

WRITEALL 

TESTALL 

CLEARCODES 
RS232DO 

RSCommand,#OFFH 

rsccount 
RSStart 



set the skip radio flag 

turn off the switch testing for port 

direction control 

find the address 



read the data 
; test which byte 



; test for the end 

; reset the counter 

; set the start flag 
; turn off command 
; return 



; test memory 

; flag set to error to start 

skip testing the switches 
set the skip radio flag 
set the data to write 
write all the words 
test all memory 
set the data to write 
write all memory 
test for the data retension 

; reset the memory for code 
; flag all ok 

; turn off command 

; set to the next address 
; set the start flag 



SKIPRS232: 



SINGLE: 



clr 
clr 



cp 



SwitchSkip 
SkipRadio 



srp #LeamModeGroup 



mono,#MONOPER 



; clear the skip switches flag 
; clear the skip radio flag 



; test for the period 



TESTCONS: 



TurnOff Output: 



SIGDONE: 
TOGGLE: 



and 
Id 

di 
cp 
jr 

and 
Id 



JP 



ultTESTCONS 
P2 ) #11110111b 
mono,#0FFH 



rto,#RTOPERIOD 
ult,SIGDONE 

P2,#11101111b 
rto,#OFFH 



if not then test constant output 
clear the output 



test for the timeout 
clear the output 



MainLoop 



loop forever 



WRITEALL: 



WRITELOOP1: 



TESTALL: 
READLOOP1 : 



td 
Id 
clr 

WDT 
call 
inc 
cp 

ret 



clr 

WDT 

call 

cp 

jP 
cp 

jP 

inc 

cp 

jr 
ret 



mtempl.mtemph 
TestVal.mtemph 
address 



WRITEMEMORY 
address 
address,#40H 
nz.WRITELOOPI 



address 



ReadMemory 

mtemph,TestVal 

nz.MEMORYERROR 

mtempl.TestVal 

nz.MEMORYERROR 

address 

address, #40H 

nz,READLOOP1 



start at address 00 



do the next address 
test for the last address 



; start at address 0 



read the data 

test the value 

if error mark 

test the value 

H error mark 

set the next address 

test for the last address 



Timer 0 interrupt 
TimerZeroInt: 

cp 

i r 

dec 
iret 

ClearRadioTimeout: 
call 
push 

JP 



T0Ext,#0O 

z,ClearRadioTimeout 
TOExt 



ClearCounter 
RP 

ClearRadio 



; test for the roll 
; if at the roll time out 
; decrement the time extension 



clear the counter 
for the Clear radio code segment 
clear the radio data 



h 



Radio interrupt from a edge of the radio signal 



RadioNeglnt: 



RadioPosInt: 



and IMR,#11 111110b 

Id RTemp,#00000001B 

jr RadioEdge 

and IMR,#1 1110111b 

Id RTemp,#OO000O00B 

jr RadioEdge 



; turn off the interrupt for 256uS 
; mark which edge 



; turn off the interrupt for 256uS 
; mark which edge 



RadioEdge: 



RlncDone: 



RTimeOk: 



RTimeDone: 



InActiveTime: 



GolnActive: 



ClearCounter: 



push RP 

srp #RadioGroup 

Id rtemph.TOExt 

Id rtempl f T0 

tm IRQ,#0001 0000b 

jr z,RlncDone 

tm rtempl,#1 0000000b 

jr z,RlncDone 

dec rtemph 

call ClearCounter 

com rtemph 

com rtempl 

cp rtemp,#0 

jr z.ActiveTime 

cp RlnFilter,#OFFH 

jr z,GolnActive 

jr RADIO_EXIT 

clr RlnRHer 

Id rtimeih,rtemph 

Id rtimeil,rtempl 

jr RADIO_EXIT 

Id TMR, #0000 1000b 

Id TMR,#00001001b 

Id TMR,#00001000b 

Id TMR,#00001010b 

Id T0Ext,#0FFH 

and IRQ,#11100110b 
ret 



save the reg pair 

set the register pointer 

read the upper byte 

read the lower byte 

test for a pending timer interrupt 

done 

test for the rollover 
if not the rolled value skip inc 
; increase the timer msb 

; clear the counter 

; flip to find the period 



; test the port for the edge 

; if it was the active time then branch 

; test for active last time 
; if so continue 
; if not the return 

set flag to inactive 

transfer the period to inactive 

return 

turn off timer 0 
load tO 

restart the timer 
reset the timer 
turn off pending int 



ActiveTime: 



Go Active: 



cp 

V 



RlnFilter,#O0H 
z.GoActive 
RADIO EXIT 



; test for active last time 
; if so continue 
; if not the return 



GotBothEdges: 



SyncOk: 



Id RlnFiiter,#OFFM 

Id rtimeah.rtemph 

Id rtimeal.rtempl 

ei 

cp radioc,#0 

jr nz.lNSIG 

inc radioc 

cp rtimeih,#30h 

jr ult.ClearJump 

cp rtimeah,#O0h 

jr nz,SyncOk 

cp rtimeal,#80H 

jr ult.ClearJump 

cp rtimeah,#9h 

jr uge, ClearJump 



transfer the period to active 



enable the interrupts 

test for the blank timing 

if not then in the middle of signal 

set the counter to the next number 

test for the min 24.5 mS 

if not then clear the radio 

test first the min sync 

first byte 00 if not great enough 

test for 256uS min 

if less then clear the radio 

test for the max time 4.6mS 
if not clear 



SETP5: 



P5MSFLAG: 



01 P5MSFLAG: 



DONESETP5: 
FtADIO EXIT: 



cp rtimeah,#02h 

jr uge.OI P5MSFLAG 

or RFIag,#01 000000b 

clr radiopSh 

clr radiopSI 

clr COUNTP5H 

clr COUNTP5L 

jr DONESETP5 

and RF!ag,#10111111b 

clr radiolpSh 

clr radio 1p5l 

clr COUNT1P5H 

clr COUNT1P5L 



pop rp 
iret 



; test for 1.5 vs .5 
; set the 1 .5 flag 

set the 0.5ms memory flag 
clear the memory 

clear the memory 

do the 2X 

set the 1 .5ms memory flag 
dear the memory 

clear the memory 



; done return 



ClearJump: 



INSIG: 



ISigOk: 



or P2,#1 0000000b 
jp ClearRadio 



cp rtimeih,#0AH 

jr uge.ClearJump 

cp rtimeih p #00h 

jr nz.lSigOk 

cp rtimeil,#080h 

jr ulf,ClearJump 

cp rtimeah,#OAH 

jr uge, ClearJump 

cp rtimeah,#O0h 



; turn of the flag bit for dear radio 
; dear the radio signal 



test for the max width 5.1 6 

if too wide dear 

test for the min width 

if greater then 0 then signal ok 

test for 256us min 

if not then clear the radio 

; test for the max width 

; if too wide dear 

; if greater then 0 then signal ok 



ASigOk: 



POSDIFF2: 
NEGDIFF2: 

01 P5MS: 

01 PMSC: 
OIPMS: 

P5MSC: 

GOTB1 P5: 



ADDB1P5: 



RC1P5INC: 



Radiol P5INC: 



Radiol P5R: 



SPECIAL BITS: 





nz.ASigOk 


; if too narrow clear 


CP 


rtimeal,#080h 


; test for 256us min 


jr 


ult.ClearJump 


; if not then clear the radio 


sub 


rtimeal,RTimelL 


; find the difference 


sbc 


rtimeah.rtimeih 




tm 


rtimeah,#1 OOOOOOOb 


; find out if neg 


V 


nz,NEGDIFF2 


; use 1 for ABC or D 


V 


POSDIFF2 




cp 


rtimeah;#01H 


; test for 1.5/1 


jr 


ult,OlPMS 


; mark as a 1 


jr 


01 P5MS 




com 


rtimeah 


; invert 


cp 


rtimeah,#01H 


; test for 1/.5 


jr 


ult.OIPMSC 


; mark as a .5 


V 


P5MSC 




Id 


BIT1P5,#2h 


; set the value 


V 


GOTB1P5 




com 


rtimeah 


; invert 


Id 


BIT1P5 ( #1h 


; set the value 


jr 


GOTB1P5 




com 


rtimeah 


; invert 


Id 


BIT1P5 f #0h 


; set the value 


clr 


rtimeah 


; clear the time 


clr 


rtimeal 




clr 


rtimeih 




clr 


rtimeil 




ei 




; enable interrupts 


tm 


RFlag,#01 000000b 


; test for radio p5/ 1 p5 


jr 


nz.RCPSINC 


» 


tm 


radioc,#00000001b 


; test for even odd number 


jr 


Z.COUNT1P5INC 


; if odd number counter 



cp radioc,#15D 

jr uge,SPECIAL_BITS 

Id pointerh,#Radio1 P5H 

Id pointert,#Radio1 P5L 

jr AddAII 

cp radioc,#1 5d 

jr nz,SKIP_ID_ZERO 

clr ID B 



; else radio 

; test the radio counter for the specials 
; save the special bits seperate 

; get the pointer 



; test for the first special 
; if not then skip zeroing 
; else dear the id bits 



SKIPJD_ZERO: 
cp 
jr 

Id 

add 
add 
add 

k 

SWITCHID: 

Id 

; cp 

» jr 
; clr 

jr 

RCP5INC: 

tm 
jr 

RadioPSINC: 

Id 
Id 
jr 

COUNT1P5INC: 
Id 
Id 
jr 

COUNTP5INC: 

Id 
Id 
jr 

AddAII: 

Id 
Id 
Id 
Id 

add 

adc 

add 

adc 

add 

adc 

Id 

Id 

ALLADDED: 

inc 

TWENTY?: 

and 
cp 

jp 

tm 



radioc,#1 9d 
z.SWITCHID 

rtemph,ID_B 
ID_B,rtemph 
ID_B,rtemph 
ID_B,BIT1P5 
Radiol P5R 

SW_B,BIT1P5 
ID_B f #03d 
ule,Radio1P5R 
BIT1P5 
Radiol P5R 



; test for the switch id 
; if so then branch 

; save the special bit 

;*3 

; add in the new value 



; save the switch ID 
; test for the add in values 
; add in if 3 < 
; else dont add in 



radioc,#00000001 b 
z,COUNTP5INC 



pointerh,#RadioP5H 

pointerl,#RadioP5L 

AddAII 



; test for even odd number 
; if odd number counter 

; else radio 

; get the pointer 



pointerh ( #COUNT1 P5H 

pointerl,#COUNTlP5L 

AddAII 



; get the pointer 



pointerh,#COUNTP5H 

pointerl,#COUNTP5L 

AddAtl 



; get the pointers 



rtemph,@pointerh 
rtempl f @pointerl 
addvalueh t @pointerh 
add valuel t @ pointer! 

addvaJuel.rternpl 
addvalueh.rtemph 
addvaluel t rtempl 
addvalueh, rtemph 
addvaluel f BIT1 P5 
addvalueh,#OOh 
@pointerh t addvalueh 
@pointeii f addvaluel 

radioc 

RRag.#11011t11B 
radioc,#21D 
nz.RRETURN 
RRag,#00010000B 



get the value 
get the value 

add x2 
add x3 

add in new number 
save the value 

increase the counter 

clear the bit for 1 0 bits 
test for 20 
if not then return 
test flag 20 bit code 



A 



FIRST20: 



GOT20CODE: 



KNOWCODE: 



jr 


nz ( KNOWCODE 


or 


RFIag,#0001 OOOOB 


clr 


radioc 


JP 


RRETURN 


cp 


ID_B,#07d 


jP 


uge.ClearRadio 


cp 


ID B,#04d 


jr 


uge.KNOWCODE 


add 


COUNT1 P5L.SW B 


adc 


COUNTlP5H,#00h 



; if the second 20 bits received 

; set the flag 

; clear the radio counter 

; return 

; test for the don't use ones 
; clear don't use 
; test for the don't add in ones 
; if so then don't add in 
; add in switch id 



Translate the counter back to normal 
start 



CounterA 
00 

MirrorA 
00 



CounterB 
00 

MirrorB 
00 



CounterC 
Countl P5H 
MirrorC 
CountPSH 



CounterD 
Countl P5L 
MirrorD 
CountPSL 



srp 

clr 

clr 

Id 

Id 

clr 

clr 

Id 

Id 

call 

Id 

call 

Id 

call 

Id 

call 
Id 

call 
Id 

call 

Id 

call 

Id 

call 

Id 

call 

MirrorTheCounter: 
call 

CounterCorrected: 
cp 

JP 
cp 



#CounterGroup 

countera 

counterb 

counterc.COUNTl P5H 
counterd.COUNTI P5L 
mirrora 
mirrorb 

mirrorc.COUNTPSH 

mirrord, COUNTPSL 

AddM irrorToCou nter 

loopcount t #3 

RotateMirrorAdd 

loopcount,#2 

RotateMirrorAdd 

loopcount,#2 

RotateMirrorAdd 

loopcount,#2 

RotateMirrorAdd 

loopcount,#1 

RotateMirrorAdd 

loopcount,#3 

RotateMirrorAdd 

loopcount,#1 

RotateMirrorAdd 

loopcount,#1 

RotateMirrorAdd 



MirrorCounter 

SkipRadio,#0FFH 

z.ClearRadio 

LearnTimer ( #0FFH 



set the group 

clear the counter Msb value 

Set the value to countl p5 

Set the mirror (temp reg for now) 
to countp5 



find countpS * 3 A 10 + countl p5 



; mirror the counter 

; test for the skip radio flag 
; if active do not test the cpde 
; test for in learn mode 



JP 

STORECODE: 
DCODESTORE: 
cp 

jr 
cp 

j r 
cp 

jr 
cp 

jr 
cp 

jr 
cp 

jr 
cp 

jr 
cp 

jr 

Match edForStore: 
srp 
call 
cp 

jr 

Id 

call 

add 

cp 

jr 

clr 

GOTDADDRESS: 
Id 
Id 

call 
Id 

call 
jr 



WRITEAGAIN: 



call 



z.TESTCODE 



PRadioA.radiol p5h 

nz,PP_NOT_M_D 

PRadioB,radio1p5l 

nz,PP_NOT_M_D 

PRadioC.radiopSh 

nz,PP_NOT_M_D 

PRadioD,radiop5l 

nz,PP_NOT_M_p 

PRadioE.MirrorA 

nz,PP_NOT_M_D 

PRadioF.MirrorB 

nz,PP_NOT_M_D 

PRadioG,MirrorC 

nz,PP_NOT_M_D 

PRadioH.MirrorD 

nz,PP_NOT_M_D 

#LearnEeGroup 

TESTMATCH 

address,#OFFH 

nz, WRITEAGAIN 

address,#1 FH 

ReadMemory 

mtemph,#4d 

mtemph,#1CH 

ult, GOTDADDRESS 

mtemph 

mtempl.mtemph 

address,#1FH 

WRITEMEMORY 

address.mtemph 

WRITE_D_CODE 

NOWRITESTORE 



WRITE D CODE 



; if not in learn the test the code 



test all 8 memorys 
if no match skip 
test all 8 memorys 
if no match skip 
test all 8 memorys 
if no match skip 
test all 8 memorys 
if no match skip 
test all 8 memorys 
if no match skip 
test all 8 memorys 
if no match skip 
test all 8 memorys 
if no match skip 
test all 8 memorys 
if no match skip 



for a match 
for a match 
for a match 
for a match 
for a match 
for a match 
for a match 
for a match 



test for a matching code 

test for a match 

if so store AGAIN for counter 

set the address 

read the value 

find the next address 

test for out of range 



store the new address 

set the code address to write 
output the D code 
reset the learn mode 



; output the D code 



NOWRITESTORE: 
or 
Id 
clr 
jr 



P2,#00000010B 
LearnTimer,#OFFH 
RadioTimeOut 
ClearRadio 



; turn off the LED for flashing 
; turn off the team mode 
; disable command from learn 
; set for the next code 



PP_NOT„M_D: 

Id PRadioA,radio1 p5h 

Id PRadioB,radio1p5l 

Id PRadioC ( radiop5h 

Id PRadioD.radiopSI 

Id PRadioE,MirrorA 

Id PRadioF.MirrorB 



; save the present into the past 
; save the present into the past 
; save the present info the past 
; save the present into the past 
; transfer the value 



4- 



!d PRadioG.MirrorC 
Id PRadioH,MirrorD 



; reset radio 



*************************** 



********************************************* 



Clear interrupt 

*********************** 

ClearRadio: 

SKIPiRTO: 
RRETURN: 



************************************************* 



tm 

j' 
clr 


RFIag,#00000001B 

z.SKIPiRTO 

RadioTimeOut 


;test for receiving without error 

; if flag not set then donot clear timer 

; clear radio timer 


clr 
clr 


RadioC 
RFlag 


; clear the radio counter 
; clear the radio flags 


pop 


RP 


; reset the RP 



iret 



; return 



******************************* ******** ***************************************** ****************************** 

rotate mirror LoopCount * 2 then add 
************************************************************************************************************** 

RotateMirrorAdd: 



rcf 
rtc 
rlc 
rlc 
rlc 



mirrord 
mirrorc 
mirrorb 
mirrora 



djnz loopcount, RotateMirrorAdd 



clear the carry 



loop till done 



************************************************************************************************************** 
Add mirror to counter 

,************************************************************************************************************** 

AddMirrorToCounter: - 

add counterd.mirrord 

adc counterc,mirrorc 

adc counterb.mirrorb 

adc countera t mirrora 
ret 

_«**6«*****««*««*«4«««*«**«««««****** ************************************************************************** 

Add mirror to counter 

,************************************************************************************************************** 



MirrorCounter: 
MirrorLoop: 



Id loopcount,#32d 

rrc countera 

rrc counterb 

rrc counterc 

rrc counterd 

rlc mirrord 

rlc mirrorc 

rlc mirrorb 

rlc mirrora 

djnz loopcount, MirrorLoop 

ret 



set the number of bits 
move the bits 



loop for all the bits 



Test the radio code for matching 

*4 ft* **«««** 4***6 ******* ****«*«*« ****** ********** ************** A***************************** ****** 



TESTCODE: 

and 

srp 

call 

or 

cp 

jP 

D CODE MATCH: 



NewCode: 



GOT D CMD: 



P2,#11111101B 

#LearnEeGroup 

TESTMATCH 

P2,#00000010B 

Address,#OFFH 

z.TEST_TC_SEC 



cp 


RadioTimeOut,#0FFH 


jr 


z, NewCode 


cp 


LastMl Match, Address 


jr 


nz, NewCode 


clr 


RadioTimeOut 


jP 


ClearRadio 


srp 


#CheckGroup 


call 


TESTCOUNTER 


cp 


CMP,#00 


jP 


z, ClearRadio 


cp 


CMP t #OAAH 


jr 
J 1 


z GOT D CMD 


cp 


CMP,#07FH 


jr 
J 1 


z UPDATE PAST 


cp 


PAST MATCH.Address 




nz,UPDATE_PAST 


Id 


pradioa.MirrorA 


Id 


pradiob,MirrorB 


Id 


pradioc,MirrorC 


Id 


pradiod.MirrorD 


sub 


pradiod.pradioh 


sbc 


pradioc.pradiog 


sbc 


pradiob.pradiof 


sbc 


pradioa.pradioe 


cp 


pradioa,#00 


jr 


nz,UPDATE_PAST 


cp 


pradiob,#00 


jr 


nz,UPDATE_PAST 


cp 


pradioc,#00 


jr 


nz,UPDATE_PAST 


cp 


pradiod,#00 


jr 


z,UPDATE_PAST 


cp 


pradiod,#04d 


jr 


ugt,UPDATE_PAST 


call 


STORE_D_COUNTER 


riMAND 




cp 


SysDisable,#32d 


jr 


uit,TESTTC_SEC 



; turn on the LED for flashing 

; test the code for a match 

; turn off the LED for flashing 

; test for no match 

; if no match try touchcode and sec 



test for the timeout 

if timer inactive then look for a new 

test for the same address as the past 

if not then test for a new code 

reclear the timer 

and update the past 

set the rp 

test the counter for in range 

test for a matching value 

if the same then clear the radio 

test for counter in range 

got a command save radio counter 

test for outside of - window 

if so skip resync 

test for the same address as the past 
if not then update the past value 
transfer the value 



; find the difference 

; test for less then 4 away 

; if not then update the past 

; if not then update the past 

if not then update the past 
test for the zero case 



; if not then update the past 
; save the new counter value 



; test for 4 seconds 
; if not test tc and sec 



cp 



RadioTimeOut,#RTOPERIOD ; test for first reception 



NOTP3A: 

NOTP3: 

NOTP3S: 



jr 


ult,NOTP3A 


clr 


Mono 


or 


P2,#00011000B 


xor 


P2,#01000000B 


clr 


RadioTimeOut 




TEST_TC_SEC 



; if second reception skip t and mono 
; clear the monostable 
; turn on the constant 
; toggle the T output 
; clear the timer 



; test to and sec 



NOTNEWMATCH: 
Id 
jP 



LearnTlmer,#OFFH 
ClearRadio 



; set the learn timer "turn off" 
; clear the radio 



UPDATE PAST: 



Id 
Id 
Id 
Id 
Id 
JP 



PAST_MATCH t Address 

pradioe,MirrorA 

pradiof.MirrorB 

pradiog,MirrorC 

pradioh.MirrorD 

ClearRadio 



; save the past address 
; transfer the value 



reset the radio 



We know the code does not match but if it was our touch code 
or security transmitter update the counter 

*44»A44t4**4**4**44«#«*t*4*4ft64«44ft*444044*»444444446t*444#4*4«*4t444444***64444444*4ii4«4«4ft4«il«44 



TEST TC SEC: 



TC_SEC: 
NEXT D: 



srp 

cp 

J r 
cp 

jr 
jP 

Id. 

call 



cp 
jr 
cp 
jr 

dec 

MatchedCheckCounter: 
call 
cp 
J> 

TC_SEC_Store: 

call 

SkipStoreCounter: 
inc 

NO_TC_M ATCH : 

add 
cp 



#LearnEeGroup 

ID_B,#1d 

z,TC_SEC 

ID_B,#2d 

z,TC_SEC 

ClearRadio 

address,#01d 

ReadMemory 
mtemph. Radiol P5H 
nz,NO_TC_MATCH 
mfempl.Radiol P5L 
nz,NO_TC_MATCH 
address 

TESTCOUNTER 

CMP,#OAAH 

nz, SkipStoreCounter 

STORE_D_COUNTER 

address 

address,#4d 
address t #1CH 



test for the touch code 
jump if so 

test for the security transmitter 
jump if so 



; set the start addresss for the fixed 

; read the word at this address 

; test for the match 

; if not matching do the next address 

; test for the match 

; if not matching do the next address 

; reset the address 

; test the counter for in range 

; test for within range 

; if not kip storing the counter 

; save the new counter 



; set the address to the next code 
; test for the last address 



jr u!t,NEXT_D ; if not the last address then try again 



GOTNO_TC_MATCH: 

jp ClearRadio 



A***************** ******* * **««44««««ft4ft««tA*A«6«4ft«*«t*«4t4tt**««*«*«*««4««4*4«««A««*«*«*««4*6«««« 

Test the radio code counter and compares 
CMP 

00 => counter the same 
FF => counter out of range 
AA => counter in range 
7F => counter within - window no resync 
Address for test in address 

* ******** ******** 4 ******««*«***«« ** 4 44*. *************** ******** ********** A ******* A** ** 6* ********** * 



TESTCOUNTER: 



CounterRet: 



NM COUNTER 



push 


RP 


; save the RP 


srp 


#CheckGroup 


; set the rp 


inc 


Address 


; set the address to the 2x position for 


inc 


Address 


call 


ReadMemory 


; read the value 


Id 


pradioa.MTempH 


; temp storage 


Id 


pradiob.MTempL 


inc 


Address 




call 


ReadMemory 


; read the value 


sub 


Address,#3d 


; reset the address 


Id 


pradioc.MTempH 


; temp storage 


Id 


pradiod.MTempL 




cp 


MirrorA.pradioa 


, test first for the match 


jr 


nz.NM_COUNTER 


if not then test count position 


cp 


MirrorB.pradiob 


jr 


nz,NM_COUNTER 


if not then test count position 


cp 


MirrorC.pradioc 


jr 


nz,NM_COUNTER 


if not then test count position 


cp 


MirrorD.pradiod 


jr 


nz.NM COUNTER 


if not then test count position 


Id 


CMP,#00h 


flag the match 


pop 


RP 




ret 

t: 






cp 


pradioa,#OFFH ; 


test for the roll over 


jr 


nz.NORMALN ; 


if not test normally 


cp 


pradiob,#OFFH ; 


test for the roll over 


jr 


nz.NORMALN ; 


if not test normally 


CP 


MirrorA.^OH ; 


test for the rollover 


jr 


nz.NORMALN ; 


if not test normally 


cp 


MirrorB,#0H ; 


test for the rollover 


jr 


nz.NORMALN ; 


if not test normally 






at roll com past add pres 


call 


Complement ; 


add 


pradiod.MirrorD ; 


add the 2 


adc 


pradioc.MirrorC ; 




adc 


pradiob.MirrorB ; 




adc 


pradioa.MirrorA ; 






COUNTOUT: 



cp pradioc,#12d 

jr ule t COUNTOK 

call Complement 

cp pradioa f #00 

jr nz , OutOfWindow 

cp pradiob,#00 

jr nz, OutOfWindow 

cp pradioc ( #000001 OOB 

jr ugt, OutOfWindow 

Id CMP r #7FH 

jr CounterRet 



; window 3072 or 1024 activations 



find the - difference 

test for within 00000400H 



mark the -window function 
return 



OutOfWindow: 

COUNTOK: 

NORMALN: 



Complement: 



Id CMP,#OFFH 

jr CounterRet 

Id CMP,#OAAH 

jr CounterRet 

sub pradiod,MirrorD 

sbc pradioc.MirrorC 

sbc pradiob,MirrorB 

sbc pradioa.MirrorA 

call Complement 

cp pradioa,#00 

jr nz.COUNTOUT 

cp pradiob,#00 

jr nz,COUNTOUT 

cp pradioc,#1 1 D 

jr ule.COUNTOK 

jr COUNTOUT 



com pradiod 

com pradioc 

com pradiob 

com pradioa 
ret 



set the bad count flag 
return 

set the count flag ok 
return 

subtrace to find difference 



make positive 
test for to large 
if so out of window 
test for to large 
if so out of window 
window for 1024 



Complement the temp reg 



TESTMATCH TEST THE NON ROLLING PART OF ANY CODE IF THERE 
IS A MATCH RETURNS THE ADDRESS ELSE RETURNS FF 



TESTMATCH: 



TEST_D_CODES: 
NEXT D C 



clr 

E: 


address 


; start at address 0 


call 


ReadMemory 


; read the word at this address 


cp 


mtemph,RadioP5H 


; test for the match 


J> 


nz,NO_D_MATCH 


; if not matching then do next address 


cp 


mtempl,RadioP5L 


; test for the match 


i r 


nz,NO_D_MATCH 


; if not matching then do next address 



A- 4/ 




-3k 



mc 
call 
cp 

jr 

cp 

J> 

dec 
jr 

NO_D_MATCH: 

inc 

NO_D_MATCH2: 

add 

cp 

J> 

GOTNO_D_MATCH: 
Id 
ret 

TMEXIT: 

Id 
Id 
ret 



address 

ReadMemory 

mtemph,Radio1P5H 

nz,NO_D_MATCH2 

mtempl, Radio 1P5L 

nz,NOJD_MATCH2 

address 

TMEXIT 



address 

address,#3d 
address,#1 CH 
ult,NEXT_D_CODE 



address,#OFFH 



LastMl Match.LastMatch 
LastMatch.address 



; set the second half of the code 

; read the word at this address 

; test for the match 

; if not matching do the next address 

; test for the match 

; if not matching do the next address 

; reset the address 

; return with the address of the match 



; set the address to the next code 

; set the address to the next code 

; test for the last address 

; if not the last address then try again 



; set the no match flag 



; delay line 

; save the address for radio timeout 



LEARN DEBOUNCES THE LEARN SWITCH 80mS 

TIMES OUT THE LEARN MODE 30 SECONDS 

DEBOUNCES THE LEARN SWITCH FOR ERASE 6 SECONDS 

LEARN: 

srp #LearnModeGroup 

cp cmdswitch,#236D 

jr nz,Re!easeDone 

clr cmdswitch 



ReleaseDone: 
multi2: 
SW2isSET: 
CMDSW: 

CLEARRA: 



cp cmdswitch,#20D 

jr UGT.CLEARRA 

cp cmdswitch f #20D 

jr nz.TESTLEARN 



Id cmdswitch,#OFFH 

clr mono 

xor P2,#01000000B 

or P2,#00011000B 

clr rto 



; set the group 

; test for the debouncer release 
; if not then test for set 
; clear the debouncer 

; test for switch 2 set 



; test for switch 2 set 
; if not then test learn 



; set the debouncer 

; clear the timer 
; toggle 
;sef 



TESTLEARN: 



cp learndb,#236D 

jr nz ( LEARNNOTRELEASED 



; test for the debounced release 
; if not released then jump 



c!r learndb 



; clear the debouncer 



ret 



; return 



LEARNNOTRELEASED: 



SETLEARN: 



ERASETEST: 



ERASETIMING: 



ERASETIME: 



cp 


learnt,#OFFH 


; test for learn mode 


jr 


nz.lNLEARN 


; if in learn jump 


cp 


learndb, #20D 


; test for debounce period 


ir 
J 1 


nz ERASETEST 


* H not th^n fp^t thc> praQo norinH 
i ii i iv i u ici f icoi n it? ci doc? ivU 


clr 


learnt 


; clear the learn timer 


Id 


leamdb,#OFFH 


; set the debouncer 


and 


P2,#11111101b 


; turn on the led 


cp 


leamdb,#OFFH 


; test for learn button active 


ir 


nz, ERASER ELEASE 


; if button released set the erase timer 


cp 


eraset,#OFFH 


; test for timer active 


jr 


nz, ERASETIMING 


; if the timer active jump 


clr 


eraset 


; dear the erase timer 


cp 


eraset,#48D 


; test for the erase period 


jr 


z,ERASETIME 


; if timed out the erase 


ret 




; else we return 


or 


P2,#00000010b 


; turn off the led 


Id 


skipradio,#OFFH 


; set the flag to skip the radio read 


call 


CLEARCODES 


; clear all codes in memory 


clr 


skipradio 


; reset the flag to skip radio 


Id 


learnt ( #OFFH 


; set the learn timer 


ret 




; return 


3E: 






Id 


eraset,#OFFH 


; turn off the erase timer 


ret 




; return 



INLEARN: 

cp 
Id 

TESTLEARNTIMER: 
cp 



learnoff: 



or 
W 
Id 



learndb, #20D 

nz.TESTLEARNTIMER 

leamdb,#OFFH 

learnt,#240D 
nz, ERASETEST 

P2,#00000010B 
learnt,#OFFH 
learndb, #OFFH 
ERASETEST 



; test for the debounce period 
; if not then test the learn timer 
; set the learn db 

; test for the learn 30 second timeout 
; if not then test erase 

; turn off the led 
; set the learn timer 
; set the learn debounce 
; test the erase timer 



WRITE WORD TO MEMORY 
ADDRESS IS SET IN REG ADDRESS 
DATA IS IN REG MTEMPH AND MTEMPL 
RETURN ADDRESS IS UNCHANGED 



A -42 



WR ITEM EMORY: 



push 


RP 


SAVE THE RP 


srp 


#LearnEeGroup 


set the register pointer 


call 


STARTB 


output the start bit 


Id 


serial,#00110000B 


set byte to enable write 


call 


SERIALOUT 


output the byte 


and 


csport,#csl 


reset the chip select 


call 


STARTB 


output the start bit 


Id 


serial,#01000000B 


set the byte for write 


or 


serial, address 


or in the address 


call 


SERIALOUT 


output the byte 


Id 


serial, mtemph 


set the first byte to write 


call 


SERIALOUT 


output the byte 


Id 


serial,mtempl 


set the second byte to write 


call 


SERIALOUT 


output the byte 


call 


ENDWRITE 


wait for the ready status 


call 


STARTB 


output the start bit 


Id 


serial,#OOOOOOOOB 


set byte to disable write 


call 


SERIALOUT 


output the byte 


and 


csport,#csl 


reset the chip select 


pop 


RP 


reset the RP 


ret 







READ WORD FROM MEMORY 

ADDRESS IS SET IN REG ADDRESS 

DATA IS RETURNED IN REG MTEMPH AND MTEMPL 

ADDRESS IS UNCHANGED 



ReadMemory: 



push 


RP 




srp 


#LearnEeGroup 


; set the register pointer 


call 


STARTB 


; output the start bit 


Id 


serial, #10000000B 


; preamble for read 


or 


serial, address 


; or in the address 


call 


SERIALOUT 


; output the byte 


call 


SERIALIN 


; read the first byte 


Id 


mtemph.serial 


; save the value in mtemph 


call 


SERIALIN 


; read teh second byte 


Id 


mtempl.serial 


; save the value in mtempl 


and 


csport,#csl 


; reset the chip select 


pop 


RP 


ret 







WRITE D CODE TO 4 MEMORY ADDRESS 

CODE IS IN Radiol P5H Radiol P5L RadioPSH RadioPSL 

CODE IS IN Count1P5H Count1P5L CountPSH CountPSL 



WRITE_D_CODE: 

push RP ; 

srp #LearnEeGroup ; set the register pointer 

Id mtemph, RadioPSH ; transfer the data 



!d 

call 
inc 
Id 
Id 

call 
inc 

STORE_COUNTER: 
Id 
Id 

call 
inc 
Id 
Id 

call 
dec 
dec 
dec 
pop 
ret 



mtennpl,RadioP5L 
WRITEMEMORY 
address 

mtemph,Radio1P5H 
mtempl.Radiol P5L 
WRITEMEMORY 
address 

mtemph.MirrorA 
mtempl.MirrorB 
WRITEMEMORY 
address 

mtemph.MirrorC 

mtempl.MirrorD 

WRITEMEMORY 

address 

address 

address 

RP 



write the temp bits 
next address 
transfer the data 

write the temps 
next address 

transfer the data 

write the temps 
next address 
transfer the data 

write the temps 
reset the address 



return 



STORE_D_COUNTER: 

push RP 

srp #LeamEeGroup 

inc address 

inc address 

jr STORE_COUNTER 



set the register pointer 



,*******♦*♦*♦♦* *************************************************** 

START BIT FOR SERIAL NONVOL 
ALSO SETS DATA DIRECTION AND AND CS 

************************************************************ 

STARTB: 



************ 



Id 


P2M,#P2M_INIT 


and 


csport f #csl 


and 


clkport,#clockl 


and 


dioport,#dol 


or 


csport,#csh 


or 


dioport,#doh 


or 


dkport t #clockh 


and 


dkport,#clocki 


and 


dioport,#tik>l 


ret 





set port 2 mode 

start by clearing the bits 

set the chip select 
set the data out high 
set the clock 
reset the clock low 
set the data low 
return 



.********************* 



«*******«««0«00************************ ************ 



; END OF CODE WRITE 

.************************************************************************ 

ENDWRITE: 

Id P2M,#(P2M_INIT+1) 
and csport,#csi 
nop 

or csport,#csh 
WDT 
ENDWRITELOOP: 

Id temph.dioport 



; set port 2 mode 
; reset the chip select 
; delay 

; set the chip select 
; kick the dog 

; read the port 



and 
jr 

and 

Id 

ret 



temph,#doh 
z.ENDWRITELOOP 
csport,#csl 
P2M,#P2M INIT 



; mask 

; if the bit is low then loop 

; reset the chip select 

; set port 2 mode forcing output mode 



SERIAL OUT 
OUTPUT THE BYTE 

SERIALOUT: 



IN SERIAL 



ONEOUT: 



ZEROOUT: 



Id 


P2M t #P2M INIT 


; set port 2 mode 


Id 


templ,#8H 


; set the count for eight bits 


OP: 






rlc 


serial 


; get the bit to output into the carry 


V 


nc.ZEROOUT 


; output a zero if no carry 


or 


dioport,#doh 


; set the data out high 


or 


clkport,#clockh 


; set the clock high 


and 


clkport,#clockl 


; reset the clock low 


and 


dioport,#dol 


; reset the data out low 


djnz 


templ.SERIALOUTLOOP 






; loop fill done 


ret 




; return 


and 


dioport,#dol 


; reset the data out low 


or 


clkport,#clockh 


; set the dock high 


and 


clkport,#clockl 


; reset the clock low 


and 


dioport,#dol 


; reset the data out low 


djnz 


templ,SERIALOUTLOOP 








; loop till done 


ret 




; return 



SERIAL IN 

INPUTS A BYTE TO .SERIAL 



SERIALIN: 

Id 
Id 

SERIALINLOOP: 



DONTSET: 



or 
rcf 
Id 

and 

jr 
scf 

rlc 

and 

djnz 

ret 



P2M,#(P2MJNIT+1) 
templ,#8H 

dkport,#dockh 

temph.dioport 
temph,#doh 
z, DONTSET 



serial 

cikport t #clockl 
templ.SERIALINLOOP 



; set port 2 mode 

; set the count for eight bits 

; set the dock high 
; reset the carry flag 
; read the port 
; mask out the bits 

; set the carry flag 

; get the bit into the byte 
; reset the dock low 

; loop fill done 
; return 



CLEAR PAGE 0 CODES IN THE MEMORY 



CLEARCODES: 



ClearLoop: 



push RP 
di 

Id SkipRadio,#OFFH 

srp #LearnEeGroup 

Id Radiol P5H,#0FFH 

Id Radiol P5L,#0FFH 

Id RadioP5H,#0FFH 

Id RadioP5L,#0FFH 

clr address 

Id cmp,#07d 

call WRITE_D_CODE 

add address, #4d 

djnz cmp, ClearLoop 

clr mtemph 

clr mtempl 

Id address,#1 FH 

call WRITEMEMORY 

pop RP 

ret 



disable interrupts 

set the register pointer 

set the codes to illegal codes 



set the page 
erase 7 values 

clear this address 
next clear address 

clear data 

set the address 

return 



TIMER UPDATE FROM INTERUPT EVERY .256mS 

64««4«444««4A4«44««««ft4«40»»«4444444««4ft«44444«4 4444ft46«44A4444444A4«444 

TimerOnelnt: 



SkipRsRoutine: 

TASKO: 

TASK1: 
ON EMS: 



FOURMS: 



RTOOK: 



inc 


TaskSwitch 


; set to the next switch 


Id 


IMR,#RETURN IMR 


; turn on the interrupt 


tm 


TaskSwitch,#00000001 b 


; even odd 




nz,SkipRsRoutine 


; do rs232 .5 mS 


call 


RS232 


; do the serial 


tm 


TaskSwitch f #0000001 1 B 


; test for task 0,1,2 or 3 




z,TASK1 


; task 1 every 1 mS 


iret 






push 


RP 




srp 


#LeamModeGroup 


; set the register pointer 


inc 


T4MS 


; increment the 4mS timer 


inc 


T125MS 


; increment the 125 mS timer 


cp 


T4MS,#4D 


; test for the time out 


jP 


nz,TEST125 


; if not true then jump 


clr 


T4MS 


; reset the timer 


cp 


rto,#OFFh 


; test for the end of the rto 




z.RTOOK 


; if the radio timeout ok then skip 


inc 


rto 


; increment the rto 



ei 



enable the interrupts 



A-4& 



MONOOK: 



TESTSW1 : 



SW1SET: 



inc mono 

jr nz.MONOOK 

dec mono 

cp SwitchSkip,#00 

jr nz,TESTl25 



increment the mono time out 
if the mono timeout ok then skip 
back turn 

test for the skip switches command 



tm 


P2,#00100000B 


; test switch one 


jr 


z,SW1SET 


; if set jump 


cp 


LearnDebounce ( #OOH 


; test for min number 


jr 


Z.TESTSW2 


; if at min skip dec 


dec 


LearnDebounce 


; dec debouncer clown 


jr 


TESTSW2 


; next 


cp 


Learn Debounce,#OFFH 


; test for the max number 


jr 


Z.TESTSW2 


; if at max skip inc 


inc 


LearnDebounce 


; inc the debouncer 



TESTSW2: 



SW2SET: 



tm P2,#00000100B 

jr Z.SW2SET 

cp CmdSwitch f #OOH 

jr z.TESTSWDB 

dec CmdSwitch 

jr TESTSWDB 

cp CmdSwitch,#OFFH 

jr z.TESTSWDB 

inc CmdSwitch 



; test switch two 
; if set jump 
; test for min number 
; if at min skip dec 
; dec debouncer down 
; next 

; test for the max number 
; if at max skip inc 
; inc the debouncer 



TESTSWDB: 



TEST125: 



ONE25MS: 
TOG: 



D012: 



LEARNTOK: 



ERASET10K: 



cp T125MS,#125D 

jr z,ONE25MS 

pop RP 
iret 



ei 

dr T125MS 

cp SysDisable,#OFFH 

jr z,D012 

inc SysDisable 

cp leamt,#OFFH 

jr z.LEARNTOK 

inc learnt 

cp eraset ( #OFFH 

jr z.ERASETIOK 

inc eraset 

pop RP 



; test for the time out 
; if true the jump 



; enable the interrupts 
; reset the timer 
; test for the top 

; count off the system disable timer 

; test for overflow 
; at roll over skip 
; increase the learn timer 

; test for overflow 

; if at roll skip 

; increase the erase timer 



iret 



RS232 DATA ROUTINES 



enter rs232 start with word to output in rs232do 



RS2320START: 



push rp 

srp #TimerGroup 

clr RSStart 

Id rs232odelay,#6d 

clr rs232docount 

and RS2320P,#RS2320C 

jr NORSOUT 



; save the rp 

; set the group pointer 

; one shot 

; set the time delay to 3. mS 
; start with the counter at 0 
; clear the output 



RS232: 



RS2320UTPUT: 



cp RSStart,#OFFH 
jr 2.RS2320START 



RS232R: 



RS232SET: 
SETTIME: 



NORSOUT: 
RS232 INPUT: 



RECEIVING: 



push rp 

srp #TimerGroup 

cp rs232docount,#1 1 d 

jr nz,RS232R 

or RS2320P,#RS2320S 

JR NORSOUT 

djnz rs232odelay, NORSOUT 

inc rs232docount 

set 

rrc rs232do 

jr C.RS232SET 

and RS2320P,#RS2320C 

jr SETTIME 

or RS2320P,#RS2320S 

Id rs232odelay,#6d 

tm rs232docount,#00000001 b 

jr z f NORSOUT 

Id rs232odelay,#7d 



cp rs232dicount,#0FFH 

jr nz.RECEIVING 

tm RS232IP,#RS232IM 

jr nz ( NORSIN 

clr rs232dicount 

Id rs232idelay,#3 

djnz rs232idelay , NORS I N 



; test for the start flag 



; save the rp 

; set the group pointer 

; test for last 

; set the output idle 



; cycle count time delay 

; set the count for the next cycle 

; set the carry flag for stop bits 

; get the data into the carry 

; if the bit is high then set 

; clear the output 

; find the delay time 

; set the output 

; set the data output delay 
; test for odd words 
; if even done 
; set the delay to 7 for odd 
; this gives 6.5 \512mS 



;test mode 

; if receiving then jump 

; test the incoming data 

; if the line is still idle then skip 

; start at 0 

; set the delay to mid 
; skip till delay is up 



A- so 



SKIPSETTING: 



DIEVEN: 



NORSIN: 



inc 


rs232dicount 


CD 


rs232dicount #1 Od 


jr 


z,DIEVEN 


tm 


RS232IP,#RS232IM 


rcf 




ir 


z SKIPSETTING 


scf 




rrc 


rs232di 


Id 


rs232idelav #6d 


tm 


rs232dicount,#00000001 b 




Z.NORSIN 


IU 


rcP^irlolaw 1*7 


ir 
J F 


ixunoiiM 


IH 




Id 


i owunn iiai ia,rs^o<&ui 


rlr 


nouuui u 


pop 


rp 


ret 




Fill 




Fill 




Fill 




Fill 




Fill 




Fill 




Fill 





; bit counter 

; test for last timeout 

; test the incoming data 
; clear the carry 

; if input bit not set skip setting carry 
; set the carry 

; save the data into the memory 
; set the delay 
; test for odd 
; if even skip 
; set the delay 



; turn off the input till next start 
; save the value 
; clear the counter 

; return the rp 



.end 



